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Preface 



This book is a tutorial on image processing. Each chapter explains basic 
concepts with words and figures, shows image processing results with pho- 
tographs, and implements the operations in C. Information herein comes 
from articles published in The C/C++ Users Journal from 1990 through 
1998 and from the first edition of this book published in 1994. This second 
(electronic) edition contains new material in every chapter. 

The goals of the first edition of this book were to (1) teach image pro- 
cessing, (2) provide image processing tools, (3) provide an image processing 
software system as a foundation for growth, and (4) make all of the above 
available to anyone with a plain, garden variety PC. 

These goals remain the same today, but much else has changed. The 
update to this text reflects many of these changes. The Internet exploded, 
and this brought a limitless supply of free images to those of us who like to 
process them. With these images have come inexpensive software packages 
that display and print images as well as convert hie formats. 

The operating systems on home desktop and laptop computers have come 
of age. These have brought hat, virtual memory models so that it is easy 
to pull entire image hies into memory for processing. This permitted the 
software revisions that are the basis of this second edition. 

The software presented in this book will run on any computer using a 
32-bit operating system (Windows 95, 98, NT and all havors of UNIX). I 
compiled it using D.J. Delorie’s port of the (free) GNU C compiler (DJGPP, 
see www.delorie.com). It should compile hne using commercially available 
C/C++ compilers. The software works on 8-bit, gray scale images in TIFF 
and BMP hie formats. Inexpensive programs are available to convert almost 
any image into one of these formats. 

Chapter 0 introduces the C Image Processing System. This chapter ties 
together many of the concepts of the software and how to use it. 




Chapter 1 presents the image file input and output (I/O) routines used 
by the image operators in the remainder of the text. These I/O routines 
underwent major changes from the first edition of this text. The changes in 
the I/O code means chapter 1 is much longer in this edition and the remaining 
chapters and their source code are shorter. 

Chapter 2 describes showing image numbers on a screen and dumping 
them to a text file for printing. I now leave image viewing and printing in 
today’s windows systems to other, inexpensive programs. 

Chapter 3 describes the halftoning technique that transform a gray scale 
image to a black and white image that looks like it has shades of gray. This 
chapter also shows how to use this to print wall posters of images. 

Chapter 4 delves into histograms and histogram equalization. Histogram 
equalization allows you to correct for poor contrast in images. It presents 
a program that creates a picture of an image’s histogram. It also gives a 
program that pastes images together. 

Chapter 5 introduces edge detection — a basic operation in image pro- 
cessing. 

Chapter 6 explains advanced edge detection techniques. We will use these 
techniques later in the book for segmentation. 

Chapter 7 addresses spatial frequency filtering. It shows how to use var- 
ious high-pass and low-pass filters to enhance images by removing noise and 
sharpening edges. 

Chapter 8 considers sundry image operations. It demonstrates how to 
add and subtract images and cut and paste parts of images. 

Chapter 9 introduces image segmentation. Segmentation is an attempt to 
divide the image into parts representing real objects in the image. Chapter 
9 shows how to use simple histogram based segmentation. 

Chapter 10 continues image segmentation with several advanced tech- 
niques. It discusses using edges, gray shades, and complex region growing 
algorithms. 

Chapter 11 demonstrates morphological filtering or manipulating shapes. 
It describes erosion, dilation, outlining, opening, closing, thinning, and me- 
dial axis transforms. 

Chapter 12 discusses Boolean operations and image overlaying. It shows 
how to use Boolean algebra to place a label on an image and how to overlay 
images for a double exposure effect. 

Chapter 13 describes how to alter the geometry of images by displace- 
ment, scaling, rotation, and cross products. It provides a utility I often use 




that stretches and compresses images. 

Chapter 14 presents image warping and morphing. Warping is a 1960s 
technique that Hollywood embraced in the early 1990s. It leads to morphing. 

Chapter 15 looks at textures and texture operators. Texture is hard to 
explain and harder to classify with computers. Nevertheless, there are a few 
ways to work this problem. 

Chapter 16 explains stereograms. These dot-filled images contain 3-D 
objects if viewed correctly. Stereograms flooded the market in the early 
1990s. The theory and techniques are simple and easy to use. 

Chapter 17 examines steganography — the ability to hide information in 
images. Steganography exploits the unnecessary resolution of gray in images. 

Chapter 18 shows how to write DOS .bat programs to use the programs 
of the C Image Processing System. 

Chapter 19 shows the Windows interface I created for the C Image Pro- 
cessing System. I used the tcl/tk language and the Visual Tel tool to create 
this. The tcl/tk scripting language is perfect for gluing together a set of 
programs like the image processing ones in this book. 

The appendices provide information on the programming aspects of this 
book. They discuss the makefile for the programs (appendix A) and the 
stand alone application programs in CIPS (appendix B). Appendix C lists 
the individual functions and the source code hies containing them. Appendix 
D gives all the image processing algorithms and the chapters in which they 
appear. Appendix E is a bibliography enumerating the books that have been 
of great help to me. 

Appendix F contains all the source code listings. I struggled with putting 
the listings in each chapter or all together at the end of thebook. I chose 
the end as that makes it easier to print the text without lots of source code 
listings. You may download a copy of the source code from 
http: / / members.aol.com/ dwaynephil/ cips2edsrc.zip 

Have fun with this. I had fun updating the software and the descriptions. 
Thanks to the Internet (lots of free images) and newer operating systems 
(32-bit), image processing is more fun than ever before. Everyone is doing 
image processing today. Use the tools and techniques described here to join 
in. Every technique brings with it ideas for other things to do. So much fun 
and so little time. 

Many thanks to the staff of The C/C++ Users Journal and Miller- 
Freeman past and present. In particular I want to thank Howard Hyten, 
Diane Thomas, Martha Masinton, Bernie Williams, P. J. Plauger, and Robert 




IV 



and Donna Ward. They allowed me to keep writing installments to this series 
and put this book together. 

Thanks also to my wife Karen. Marrying her was the smartest thing I 
ever did. 

Dwayne Phillips Reston, Virginia May 2000 
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Chapter 0 

Introduction to CIPS 



0.1 Introduction 

This chapter presents the underlying concepts of the remaining chapters in 
this electronic book. The first edition of this book [0.18] was released in 1994 
from R&D Publications. That book was first written as separate articles 
for The C Users Journal from 1991 through 1993 [0.2- 0.12], Since then, 
R&D Publications was purchased by Miller-Freeman, The C Users Journal 
became The C/C++ Users Journal , and much has changed in the world of 
image processing. The C/C++ Users Journal published five more articles 
from 1995 through 1998 [0.13-0.17]. Versions of these articles are included. 

Every chapter in this edition of the book is different from the first edition. 
All the source code has been modified. The goals of the following chapters 
are to (1) teach image processing, (2) provide image processing tools, (3) 
provide an image processing software system as a foundation for growth, and 
(4) make all of the above available to anyone with a plain, garden variety PC. 
The C/C++ Users Journal is an excellent forum for teaching. The publisher 
and editors have allowed me to explain image processing from the basic to 
the advanced. Each chapter reviews image processing techniques with words, 
figures, and photographs. After examining the ideas, each chapter discusses 
C source code to implement the operations. The complete source code is 
listed in Appendix F. The source code can be downloaded from 
http : / / members . aol . com/ dwaynephil / cips2edsrc . zip 

The techniques in this collection would fill a large part of a college or 
graduate level textbook. The textbooks, however, do not give useful source 
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code. 

It is the source code that keeps this book from being another academic or 
reference work. The intent was to give people working edge detectors, filters, 
and histogram equalizers so they would not need to write them again. An 
equally important goal was to give people disk I/O, display, and print rou- 
tines. These routines make a collection of operators into a software system. 
They handle the dull necessities and allow you to concentrate on exciting, 
new operations and techniques. 

The overriding condition continues to do all this using a basic personal 
computer. The basic personal computer of 2000 is much different from 1994, 
but the routines do not require special hardware. 



0.2 System Considerations 

Image processing software performs image disk I/O, manipulates images, and 
outputs the results. This book will be easier to understand if you know how 
the C Image Processing System (CIPS) performs these three tasks. 

The first task is image disk I/O, and the first item needed is an im- 
age hie format. The hie format specihes how to store the image and infor- 
mation about itself. The software in this book works with Tagged Image 
File Format (TIFF) hies and Windows bit mapped (BMP) hies. Aldus (of 
PageMaker fame) invented TIFF in the mid-1980s and worked with several 
scanner manufacturers and software developers to create an established and 
accepted standard. The source code in this text works with 8-bit gray scale 
TIFF hies (no compression) . The source code also works with 8-bit BMP hies 
(again, no compression). These are basic pixel-based image hies. Images are 
available from many sources today (the Internet is a limitless source). Also 
available are inexpensive programs ($50 down to free) that convert images 
to the formats I support. Chapter 1 discusses these formats and shows code 
that will read and write these hies. 

The second task is image manipulation. This is how the software holds 
the image data in memory and processes it. The CIPS described in this 
edition is much better than the hrst edition in this respect. The hrst edition 
used a 16-bit compiler and was limited by the 64K byte memory segments in 
the PC. This edition uses a 32- bit compiler that can use virtually limitless 
memory. Therefore, this software reads entire images into a single array. This 
allows the image processing programmer to concentrate on image processing. 
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The final task is outputting results. CIPS can write results to TIFF and 
BMP image files, display image numbers on the screen, and dump image 
numbers to a text file. This is less than the CIPS presented in the first 
edition. I now leave image display and printing to others. This is because 
Windows-based image display programs are available free or at low cost on 
the Internet and elsewhere. (If you double click on a .bmp file, Microsoft 
Paint will display it). I use and recommend VuePrint from Hamrick Software 
(http: / / www.hamrick.com) . 



0.3 The Three Methods of Using CIPS 

There are three ways to use CIPS: (1) interactively, (2) by writing C pro- 
grams, and (3) by writing .bat files. Now that we are all in the Windows 
world, I have included a Windows application that allows the user to click 
buttons and fill in blanks. I created this using The Visual tel toolkit and the 
tel scripting language. Chapter 18 describes this process. 

All the image processing subroutines share a common format that allows 
you to call them from your own C programs. The common format has a 
parameter list containing image file names, and listing items specific to each 
operator. The subroutines call the disk I/O routines and perform their spe- 
cific image processing function. Writing stand-alone application programs is 
not difficult with CIPS. This book contains more than a dozen such programs 
as examples (Appendix B gives a list and explanation of these) . 

The third method of using the CIPS software is by writing DOS .bat 
files. The stand-alone programs in this book are all command-line driven. 
The advantage to this is that you can call them from .bat files. Chapter 17 
explains this technique in detail and gives several examples. 



0.4 Implementation 

I implemented this software using a DOS port of the GNU C compiler. This 
is the well known D.J. Delorie port (see http://delorie.com). It is free to 
download, is updated regularly, and works well. The source code ports to 
other C compilers and systems reasonably well. I created a large makefile 
to help manage the software (see Appendix A). It allows you to make code 
changes and rebuild the programs with simple commands. 
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0.5 Conclusions 

Enjoy this book. Use the source code and experiment with images. One 
of the good things about image processing is you can see the result of your 
work. Investigate, explore different combinations of the techniques men- 
tioned. There are no right or wrong answers to what you are doing. Each 
image has its own characteristics, challenges, and opportunities. 
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Chapter 1 

Image File Input and Output 



1.1 Introduction 

Image processing involves processing or altering an existing image in a desired 
manner. The first step is obtaining an image in a readable format. This is 
much easier today than five years back. The Internet and other sources 
provide countless images in standard formats. This chapter describes the 
TIFF and BMP file formats and presents source code that reads and writes 
images in these formats. 

Once the image is in a readable format, image processing software needs 
to read it so it can be processed and written back to a file. This chapter 
presents a set of routines that do the reading and writing in a manner that 
frees the image processing programming from the details. 



1.2 Image Data Basics 

An image consists of a two-dimensional array of numbers. The color or gray 
shade displayed for a given picture element (pixel) depends on the number 
stored in the array for that pixel. The simplest type of image data is black 
and white. It is a binary image since each pixel is either 0 or 1. 

The next, more complex type of image data is gray scale, where each pixel 
takes on a value between zero and the number of gray scales or gray levels 
that the scanner can record. These images appear like common black-and- 
white photographs — they are black, white, and shades of gray. Most gray 
scale images today have 256 shades of gray. People can distinguish about 40 
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shades of gray, so a 256-shade image “looks like a photograph.” This book 
concentrates on gray scale images. 

The most complex type of image is color. Color images are similar to 
gray scale except that there are three bands, or channels, corresponding to 
the colors red, green, and blue. Thus, each pixel has three values associated 
with it. A color scanner uses red, green, and blue filters to produce those 
values. 

Images are available via the Internet, scanners, and digital cameras. Any 
picture shown on the Internet can be downloaded by pressing the right mouse 
button when the pointer is on the image. This brings the image to your PC 
usually in a JPEG format. Your Internet access software and other software 
packages can convert that to a TIFF or BMP. 

Image scanners permit putting common photographs into computer files. 
The prices of full-color, full-size scanners are lower than ever (some available 
for less than $100). Be prepared to experiment with scanning photographs. 
The biggest problem is file size. Most scanners can scan 300 dots per inch 
(dpi), so a 3”x5” photograph at 300 dpi provides 900x1500 pixels. At eight 
bits per pixel, the image file is over 1,350,000 bytes. 

Digital cameras have come out of the research lab and into consumer 
electronics. These cameras store images directly to floppy disk. Most cameras 
use the JPEG file format to save space. Again, there are many inexpensive 
image viewing software packages available today that convert JPEG to TIFF 
and BMP. 

1.3 Image File I/O Requirements 

Image file I/O routines need to read and write image files in a manner that 
frees the programmer from worrying about details. The routines need to hide 
the underlying disk files. 

Figure 1.1 shows what a programmer would like to write when creating 
a routine. The first three lines declare the basic variables needed. Line 3 
creates the output image to be just like the input image (same type and 
size). The output image is needed because the routines cannot write to an 
image file that does not exist. Line 4 reads the size of the input image. The 
height and width are necessary to allocate the image array. The allocation 
takes place in line 5. The size (height and width) does not matter to the 
programmer. Line 6 reads the image array from the input file. The type of 




1.3. IMAGE FILE I/O REQUIREMENTS 



9 



Line 

0 char *in_name, *out_name; 

1 short **the_image; 

2 long height, width; 

3 create_image_file(in_name, out_name) ; 

4 get_image_size(in_name, &height, &width) ; 

5 the_image = allocate_image_array (height , width); 

6 read_image_array(in_name, the_image) ; 

7 call an image processing routine 

8 write_image_array(out_name, the _ image ) ; 

9 free_image_array(the_image, height); 



Figure 1.1: A Sample Program 



input file (TIFF or BMP) does not matter. Line 7 is where the programmer 
calls the desired processing routine. Line 8 writes the resulting image array 
to the output hie, and line 9 frees the memory array allocated in line 5. 

The routines in figure 1.1 are the top-level of a family of routines. These 
hide the image hie details from the programmer. The underlying routines 
do the specihc work. This structure removes all hie I/O from the image 
processing routines. All routines receive an array of numbers and the size 
of the array. This improves the portability of the image processing routines. 
They do not depend on image formats or sources. 

This structure also makes it easier to add more image hie formats. The 
read image array function rides on top of a set of routines that determine the 
specihc hie format and read it. Adding new routines below read image array 
will not affect the vast majority of code in the image processing system. 

Listing 1.1 shows the high-level I/O routines. It begins with the basic 
read image array and write image array. These routines call routines that 
check the hie format and call the read and write routines for those specihc 
formats. Adding new hie formats means adding calls to those routines here. 
The next routine in listing 1.1 is create_image_hle. It also calls routines to 
determine the specihc hie format and create hies for those formats. 
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The get .image .size routine determines the size of the image to process. 
This information is needed to allocate image arrays and to pass to processing 
routines. The processing routines will receive a pointer to an array. They 
must also receive the size of the image or they cannot process through the 
numbers. The get_image_size routine determines the specific hie format and 
calls routines to read the image headers. 

The next two routines, allocate_image_array and free_image_array, create 
and free memory for arrays of numbers. This completes the routines shown 
in figure 1.1. The remaining routines in listing 1.1 are used in many of the 
programs presented in this book. Like the routines described earlier, they 
ride on top of other routines that work with specific image hie formats. They 
create hies, determine if hies exist, manipulate headers, and pull important 
information from image headers. 



1.4 TIFF 

Several computer and scanner companies created an industry standard for 
digital image data communication [1.1]. Their collaboration resulted in the 
TIFF specihcation. Since most scanner manufacturers support the standard 
in their PC and Macintosh products, TIFF is a natural for PC-based image 
processing. 

The goals of the TIFF specihcation are extensibility, portability, and 
revisability. TIFF must be extensible in the future. TIFF must be able to 
adapt to new types of images and data and must be portable between different 
computers, processors, and operating systems. TIFF must be revisable — it 
is not a read-only format. Software systems should be able to edit, process, 
and change TIFF hies. 

The tag in Tag Image File Format refers to the hle’s basic structure. A 
TIFF tag provides information about the image, such as its width, length, 
and number of pixels. Tags are organized in tag directories. Tag directories 
have no set length or number, since pointers lead from one directory to an- 
other. The result is a hexible hie format that can grow and survive in the 
future. Figure 1.2 contains the existing standard tags. Figure 1.3 shows the 
structure of TIFF. The hrst eight bytes of the hie are the header. These 
eight bytes have the same format on all TIFF hies. They are the only items 
set in concrete for TIFF hies. The remainder of the hie differs from image 
to image. The IFD, or Image File Directory, contains the number of direc- 
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tory entries and the directory entries themselves. The right-hand column in 
Figure 1.2 shows the structure of each directory entry. Each entry contains 
a tag indicating what type of information the file holds, the data type of the 
information, the length of the information, and a pointer to the information 
or the information itself. 

Figure 1.4 shows the beginning of a TIFF file. The addresses are located 
on the left side in decimal, and the bytes and their values are in the table in 
hex. 

Glancing between Figures 1.3 and 1.4 should clarify the structure. The 
first eight bytes are the header. Bytes zero and one tell whether the file stores 
numbers with the most significant byte (MSB) first, or least significant byte 
(LSB) first. If bytes zero and one are II (0x4949), then the least significant 
byte is first (predominant in the PC world). If the value is MM (0x4D4D), 
the most significant byte is first (predominant in the Macintosh world) . Your 
software needs to read both formats. 

The example in Figure 1.4 shows LSB first. Bytes two and three give the 
TIFF version number, which should be 42 (0x2A) in all TIFF images. Bytes 
four to seven give the offset to the first Image File Directory (IFD). Note 
that all offsets in TIFF indicate locations with respect to the beginning of 
the file. The first byte in the file has the offset 0. The offset in Figure 1.4 is 
8, so the IFD begins in byte nine of the file. 

1.4.1 The IFD 

The content of address eight is 27, indicating that this file has 27 12-byte 
directory entries. The first two bytes of the entry contain the tag, which 
tells the type of information the entry contains. The directory entry at 
location 0 (Figure 1.4) contains tag=255. This tag tells the file type. (Refer 
to Figure 1.2 for possible tags.) The next two bytes of the entry give the 
data type of the information (Figure 1.5 lists the possible data types and 
their lengths). Directory entry 0 in Figure 1.4 is type=3, a short (two-byte 
unsigned integer). The next four bytes of the entry give the length of the 
information. This length is not in bytes, but rather in multiples of the data 
type. If the data type is a short and the length is one, the length is one 
short, or two bytes. An entry’s final four bytes give either the value of the 
information or a pointer to the value. If the size of the information is four 
bytes or less, the information is stored here. If it is longer than four bytes, a 
pointer to it is stored. The information in directory entry zero is two bytes 
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Subf ileType 

Tag = 255 (FF) Type = short N = 1 

Indicates the kind of data in the subfile. 

Image Width 

Tag = 256 (100) Type = short N = 1 

The width (x or horizontal) of the image in pixels . 

ImageLength 

Tag = 257 (101) Type = short N = 1 

The length (y or height or vertical) of the image in pixels. 

RowsPerStrip 

Tag = 278 (116) Type = long N = 1 

The number of rows per strip. 

The default is the entire image in one strip. 

StripOff sets 

Tag = 273 (111) Type = short or long N = strips per image 
The byte offset for each strip. 

StripByteCounts 

Tag = 279 (117) Type = long N = 1 

The number of bytes in each strip. 

SamplesPerPixel 

Tag = 277 (115) Type = short N = 1 

The number of samples per pixel 
(1 for monochrome data, 3 for color) . 

BitsPerSample 

Tag = 258 (102) Type = short N = SamplesPerPixel 

The number of bits per pixel. 2**BitsPerSample = # of gray levels. 



Figure 1.2: Existing Standard TIFF Tags 
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Header 




A+2+L_ C 
B*12P 



Byte Order 
Version 

Offset to Oth IFD 

Entry Count 
Directory Entry 0 
Directory Entry 1 
Directory Entry 2 

Offset to next IFD 




Figure 1.3: The Structure of a TIFF File 
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address contents 

(decimal) (hex) 

header 



0 




49 ■ 


49 






2 




2A 


00 






4 




08 


00 00 00 






IFD 










8 




IB 


00 








0th directory 


entry 






10 




FF 


00 




tag=255 


12 




03 


00 




type=3 (short) 


14 




01 


00 00 


00 


length=l 


18 




01 


00 00 


00 


value=l 




lrst 


directory 


entry 






22 




00 


01 




tag=256 


24 




03 


00 




type=3 (short) 


26 




01 


00 00 


00 


length=l 


30 




58 


02 00 


00 


value=600 




2nd 


directory 


entry 






34 




01 


01 




tag=257 


36 




03 


00 




type=3 (short) 


38 




01 


00 00 


00 


length=l 


42 




5A 


02 00 


00 


value=602 



offset to next IFD 
334 00 00 00 00 

offset=0 so there are no more IFD’s 



Figure 1.4: The Beginning of a TIFF File 




1.4. TIFF 



15 



Type 

1 = byte 

2 = ASCII 

3 = short 

4 = long 

5 = rational 



Length of the Type 
8 bit unsigned integer 
8 bit bytes that store ASCII codes 
(the last byte must be null) 

16 bit (2 byte) unsigned integer 
32 bit (4 byte) unsigned integer 
Two long’s: The first is the numerator, 
the second is the denominator 



Figure 1.5: Possible Data Types and Lengths 



long and is stored here with a value of 1 . (This value has no meaning for this 
tag.) 

As for the next two entries, the first entry has tag=256. This is the image 
width of the image in number of columns. The type is short and the length 
of the value is one short, or two bytes. The value 600 means that there are 
600 columns in the image. The second entry has tag=257. This is the image 
length or height in number of rows. The type is short, the length is one, and 
the value is 602, meaning that the image has 602 rows. 

You continue through the directory entries until you reach the offset to 
the next IFD. If this offset is 0, as in Figure 1.4, no more IFDs follow in the 
file. 



1.4.2 The TIFF Code 

The code in Listing 1.2 reads image arrays from and writes them to TIFF 
files. The code works with eight-bit gray scale TIFF images. It sits one level 
closer to the files than the general routines given in listing 1.1. 

Listing 1.4 (cips.h shown later) contains the ^include files, constants and 
the data structures. The structure tiff_header_struct holds the essential tags 
we must extract from the TIFF header. 

The function read Tiff dreader in Listing 1.2 first determines whether the 
file uses LSB-first or MSB-first since the method used influences the manner 
in which the functions extract _long_from_buffer and extract_short Jrom.buffer 
read the remainder of the file header. Next, the offset to the Image File 
Directory is read. The next section seeks to the IFD and reads the entry 
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count, or number of entries in the IFD. Finally, the code loops over the 
number of entries. It reads each entry and picks out the necessary tags. The 
essential information is the width and length of the image, the bits per pixel 
(four-bit or eight-bit data), and the offset to the start of the data. 

The function read_tiff_image in Listing 1.2 uses read.tiff .header and the 
header information to read data into an array of shorts. The code seeks to 
the beginning of the data and loops through the lines in the image to read 
all the data. The function readJine reads the image data into a buffer, and 
places the data into the array of shorts. readJine uses unions defined in 
cips.h and also depends on the number of bits per pixel. 

The next functions in Listing 1.2 write TIFF files to disk. The function 
create Jiff Jile Jfmeeded receives the name of an input file and an output file 
and looks for that output file on the disk. If the output file does not exist, it 
creates it to be the same basic size as the input file, create JifLfile jfmeeded 
uses the functions does mot .exist and create.allocate.tiff Jile, both described 
below, to check for the existence of the output file and to create it. 

The next function in Listing 1.2 is create.allocate.tiff Jile. This function 
takes in a file name and information about the TIFF file header and creates 
a file on disk. It allocates disk space by writing enough zeros to the file to 
hold an image. The image width and length specified in the tiff Jieader .struct 
indicate how large an image the disk hie must be able to hold. In writing the 
hie header, create.allocate.tiff Jile always specihes the least-signihcant-byte- 
hrst (LSB) order. It goes on to write all the tags required by the new TIFF 
[1.1] specihcation for gray scale image hies. After writing the hie header, it 
goes into a loop and writes out bytes of zeros to the hie. 

The next function in Listing 5.1 is write.tiff Jmage. Image processing 
functions will use this to write an array of pixels into existing TIFF hies. It 
takes in the hie name, looks at the hie header, and uses the header informa- 
tion to write an array of pixels into the hie. Its form is similar to that of the 
function read.tifLimage shown above. The function write.tiff Jmage seeks to 
where the image data begins and loops through the writing the lines. 

The function write Jine (shown next in Listing 1.2) actually writes the 
bytes into the hie. It converts the short values (16 bits) to either eight- or 
four-bit values and writes them. 

The other functions in the listing are often-used utilities. The function 
is.a.tiff looks at the hie name and header information to determine a hie is a 
TIFF hie. The function equate_image_headers sets the primary information 
of two image headers to be equal. The following functions insert shorts and 
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longs into and extracts them from buffers. The TIFF I/O functions in this 
listing and the BMP file functions in listing 1.3 use these utilities. 



1.5 BMP 

The Microsoft Windows Bitmap (BMP) file format is a basic file format for 
digital images in the Microsoft Windows world. The BMP format is simpler 
and less capable than the TIFF format. It does what it is supposed to do 
— store digital images, but technically is not as good as TIFF. Simplicity, 
however, is a blessing in that the files are easier to read and write. 

This is the native graphics format for the Windows world, so the vast 
majority of Windows-based software applications support this format. Since 
BMP was created for Microsoft Windows, it was created for the Intel pro- 
cessors only. Hence, it is all least significant byte first. This differs from the 
TIFF discussed earlier where it could be either least or most significant byte 
first. Microsoft’s Paint program (free with all Windows) works with BMP 
files, so everyone using Windows can display and print BMP files. The down 
side of BMP is that most UNIX systems do not support BMP files. 

The BMP file format has grown and changed as Microsoft Windows has 
grown and changed. There are five or six different versions of BMP files. The 
code presented herein works with version of BMP created for Windows 3.x, 
eight bits per pixel, gray shades, no compression. 

An excellent source of information for BMP and all other image file for- 
mats is [1.2]. Further information for BMP is in [1.3] and [1.4] while source 
code to read and write all BMP formats is available at [1.5] and [1.6]. 

BMP files have (1) a file header, (2) a bit map header, (3) a color table, 
and (4) the image data. The file header, shown in figure 1.6, occupies the 
first 14 bytes of all BMP files. The first two bytes are the file type which 
always equals 4D42 hex or ‘BM.’ The next four bytes give the size of the 
BMP file. The next two bytes are reserved and are always zero. The last 
four bytes of the header give the offset to the image data. This value points 
to where in the file the image data begins. This value, and the other four 
byte values in the header, is an unsigned number (always positive). 

The next 40 bytes, shown in figure 1.7, are the bit map header. These are 
unique to the 3.x version of BMP files. The bit map header begins with the 
size of the header (always 40). Next come the width and height of the image 
data (the numbers of columns and rows). If the height is a negative number, 
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Figure 1.6: The BMP File Header 

the image is stored bottom-up. That is the normal format for BMP files. 
The number of color planes is usually 1. The bits per pixel is important. My 
code works with eight bits per pixel only to provide 256 shades of gray. 

The next two fields deal with image data compression. The compression 
field is 0 for no compression and 1 for run length encoding compression. My 
code does not work with compression. The size of bitmap field gives the 
size of the image data when the data is compressed. It is zero when not 
compressed, and the software calculates the size of the data. 

The next two held deal with the resolution of the image data and the 
final two deal with the colors or gray shades in the image. The horizontal 
and vertical resolutions are expressed in pixels per meter. The color fields 
help the software decipher the color table discussed below. The colors held 
states how many colors or gray shades are in the image. The images do not 
always have 256 gray shades. If only 30 are present, this held equals 30 and 
the color table only has 30 entries. The important colors held states how 
many of the colors are important to the image. 

After the headers come the color table. A color table is a lookup table 
that assigns a gray shade or color to a number given in the image data. In 
BMP hies, just because the number 12 is in the image data does not mean 
that the pixel is the 12th darkest gray shade. It means that the pixel has the 
gray shade given in the 12th place in the color table. That gray shade might 
be 100, 200, or anything. Color tables offer the opportunity to save space 
in image hies and to match the image colors to a display or printing device. 
They do not play an important role in the image processing routines in this 
text. 
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Figure 1.7: The Bit Map Header 
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The BMP color table has four bytes in each color table entry. The bytes 
are for the blue, green, and red color values. The fourth byte is padding and 
is always zero. For a 256 gray shade image, the color table is 4x256 bytes 
long. The blue, green, and red values equal one another. 

The final part of the BMP file is the image data. The data is stored row 
by row with padding on the end of each row. The padding ensures the image 
rows are multiples of four. The four, just like in the color table, makes it 
easier to read blocks and keep track of addresses. 



1.5.1 The BMP Code 

The code in Listing 1.3 reads image arrays from and writes them to BMP 
files. The code works with eight-bit gray scale BMP images. It sits one level 
closer to the files than the general routines given in listing 1.1. 

Listing 1.4 (cips.h shown later) contains the ^include files, constants and 
the data structures. The structures bmpfileheader and bitmapheader hold 
the information from the BMP file header and bit map header. 

Listing 1.3 begins with the functions that read the essential header infor- 
mation from a BMP file. The function read bmp hie header reads the first 
information in the BMP file. The function read brn header reads the bit map 
header information. The function read_color_table reads the essential color 
table. 

Next comes reading image data from file with read bmp image. This calls 
the above functions to learn the header information. It seeks to the start of 
the image data and reads the data one byte at a time. This function uses the 
color table information to convert the read byte to the proper short value. If 
necessary, flip image array is called to turn the image right-side up. 

The next functions create a blank BMP file on disk. The function cre- 
ate bmp hie if needed checks the file name given it does not exist. If it does 
not, create bmp hie if needed calls create allocate bmp hie to create and fill 
the blank BMP file. It writes the necessary header information and color 
table before writing zeros to the file. 

The function write Jbmp dmage writes an array of numbers into a BMP 
file. First, it reads the header information and seeks to the color table loca- 
tion. After writing the color table to file, it loops over the height and width 
of the array of numbers. It writes the image data to disk by filling a buffer 
with one row of image data at a time and writing this buffer to disk. 
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The remaining functions in listing 1.3 are utilities. The function is_a_bmp 
looks at a hie name and then the information in the hie header to determine 
if a hie is a BMP image hie. The function calculate.pad calculates the extra 
bytes padded to the end of a row of numbers to keep the four-byte boundaries 
in place. The function equate.bmphleheaders sets the essential hie header 
information equal for two headers, and hip_image_array hips the image num- 
bers right-side up. 



1.6 A Simple Program 

Listing 1.5 shows how a simple program can use the I/O routines presented 
earlier. This listing shows the round program that rounds off a part of an 
input hie and stores it to an output hie. The basic use of this program is 
to create a new hie that contains the desired part of an existing hie. The 
user specihes the desired starting point in the existing hie and the size of the 
output hie. 

The program hrst interprets the command line to obtain the hie names 
and output image size. It calls the is_a routines to determine the type of 
hie being used. The next calls create the desired output hie. Calls to the 
previously discussed routines allocated two arrays of shorts and read the 
input image. The loop over out Jength and out.width copy the desired part 
of the input image to an output image array. The hnal calls write the output 
image to the output hie and free the memory used by the two image arrays. 



1.7 Converting Between TIFF and BMP 

The hnal two listings in this chapter show short programs that convert be- 
tween the TIFF and BMP image hie formats. Listing 1.6 shows the tif2bmp 
program. It checks the command line parameters to ensure the user entered 
the proper hie names. The program obtains the size of the input TIFF image 
hie, allocates an image array of that size, and creates an output BMP image 
hie also of that size. It then reads the image data from the input hie and 
writes it to the output hie. 

Listing 1.7 shows the bmp2tiff program. This program is similar to the 
tif2bmp program described above. It reads data from a BMP image hie, 
creates a TIFF image hie, reads the data from the BMP image hie, and 




22 



CHAPTER 1. IMAGE FILE INPUT AND OUTPUT 



writes it to the TIFF file. 



1.8 Conclusions 

This chapter has discussed image file input and output. Image I/O is a 
fundamental part of image processing. Images are easier to find today than 
ever before. The second edition of this book is based on the new image I/O 
routines described in this chapter. These routines allow the image processing 
programmer to concentrate on image processing operators. The current I/O 
routines work with 8-bit gray scale TIFF images and 8-bit gray scale BMP 
images. Inexpensive software products are available to convert almost any 
image to one of these formats. 
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Chapter 2 

Viewing and Printing Image 
Numbers 



2.1 Introduction 

Image processing is a visual task. Therefore, displaying images in various 
forms is a necessity. This chapter presents techniques to display the numbers 
in an image on a screen, print the numbers in an image, and display and 
print the image like a photograph. 



2.2 Displaying Image Numbers 

There are times when the best technique an image processor can use is to 
look at the raw image numbers. The numbers tell exactly what is happening. 
They show what the image operators are doing to the image. 

The first method of looking at image numbers is to display them on the 
screen. The first program presented in this chapter shows the image numbers 
on a DOS text window on a PC. This would also work in a text window on 
a UNIX machine. 

Listing 2.1 presents the showi program. It reads the image numbers from 
the input file and shows a portion of the numbers on the screen. The user 
can alter which part of the image is displayed via keystrokes. This is a short, 
simple program that is quite useful when trying to have a quick view of the 
image numbers. 
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2.3 Printing Image Numbers 

Printing image numbers on paper gives the image processor something noth- 
ing else will — a hard copy of the image in your hand to study. The program 
in listing 2.2 takes the easy route by dumping all the image numbers to a 
text file. Common word processors can do the work of printing to paper. 
When the image exceeds page width (which happens almost all the time), 
the user can adjust font size and page orientation and resort to that tried 
and true technique of taping pages together. 

Listing 2.2 shows the dumpi program. It reads the entire input image 
into an array and writes the numbers in each line to a buffer. The program 
writes each buffered line of numbers to a text file. 



2.4 Viewing and Printing Images 



Viewing and printing images like photographs is easier today than ever in 
the past. Discretion is the better part of valor, so I opted out of writing 
viewing and printing programs for the Windows environment. There are 
many excellent programs available at little or no cost. As in chapter 0, I 
recommend VuePrint from Hamrick Software (http://www.hamrick.com). 

This approach also improves portability. Users of UNIX systems can also 
find free or inexpensive image viewers and printers. 

Word processors are much better today than five years ago. Almost any 
word processor can import a file and print it alone and in a document. It 
seems a long time ago when that was not possible. That is why I struggled 
with photographing CRT displays and included those photographs in the first 
edition of this book. Those less than wonderful pictures are absent from this 
edition. The publisher, and almost anyone else, can now import the image 
files into a publishing package with much better results. 

Use what is available in the marketplace to view and print images. This 
continues with the spirit of the C Image Processing System. Concentrate 
on image operators and leave the details of image I/O (including display) to 
someone else. 
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2.5 Conclusions 

This chapter has discussed methods of viewing an image. Often, there is no 
substitute for looking at the raw image numbers. This chapter presented a 
program to see the numbers on the screen and another one that dumps the 
image numbers to a text hie. Word processors can print those numbers to 
paper for examination. Viewing and printing images in visual format has 
been left to others. Inexpensive programs that display images on the screen 
are available. Today’s word processors are much more powerful than five 
years ago. They can import and print images to paper. 
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Chapter 3 
Halftoning 



3.1 Introduction 

Black and white printers put gray shade images on paper via the presence 
or absence of black ink on paper. Printers do not contain ink with varying 
shades of gray. These black and white output devices create the illusion of 
shades of gray via haltoning. 

This chapter presents a halftoning algorithm that converts a gray scale 
image into an image containing only Is and Os. The image display sources of 
chapter 2 can output the resulting image. 

This chapter also presents a program that dumps the 1/0 image to a text 
hie as spaces and asterisks. A word processor can print that text hie allowing 
the user to make a large wall display of an image. 



3.2 The Halftoning Algorithm 

Figure 3.1 shows the basic halftoning algorithm. Reference [3.1] is the source 
of the original algorithm. The basis of the algorithm is an error-diffusion 
technique. When the “error” reaches a certain value, turn a pixel on and 
reset the error. If the error is not great enough, leave the pixel turned off. 
Errors result from approximating a gray shade image with only ones and 
zeros. 

Figure 3.1 shows the input image / with R rows and C columns. E p (m, n ) 
is the sum of the errors propagated to position (m,n) due to earlier 1 or 0 
assignments. E g (m, n) is the total error generated at location (m,n). C(I, J) 
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Define : 

I(R,C) - input image with R rows and C columns 
Ep(m,n) - sum of the errors propogated to position (m,n) due 
to prior assignments 

Eg(m,n) - the total error generated at position (m,n) . 

C(i,j) - the error distribution function with I rows and J 
columns 



1. Set Ep(m,n) = Eg(m,n) = 0 for R rows and C columns 

2. loop m=l,R 

3. loop n=l,C 

4. Calculate the total propogated error at (m,n) due to 

prior assignments 

5. Sum the current pixel value and the total propogated 

error: T = I(m,n) + Ep(m,n) 

6. IF T > threshold 

THEN do steps 7. and 8. 

ELSE do steps 9 . and 10 . 

7. Set pixel (m,n) on 

8. Calculate error generated at current location 

Eg(m,n) = T - 2*threshold 

9. Set pixel (m,n) off 

10. Calculate error generated at current location 

Eg(m,n) = threshold 

3. end loop over n 
2. end loop over m 



Figure 3.1: The Basic Halftoning Algorithm 




3.3. SAMPLE OUTPUT 
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is the error distribution function, whose size and values were set experimen- 
tally for the “best” results. The elements in C must add up to one. The 
authors of reference [3.1] set C to be a 2x3 matrix with the values shown in 
equation 3.1: 



_ 0 . 00 . 20.0 

Uij ~ 0.60.10.1 



(3.1) 



The results from using this error-diffusion method have been satisfactory. 
You may want to experiment with the equations. Equation 3.2 (in Figure 
3.1) shows that E p (m,n), the error propagated to location (m,n), is the 
combination of the error distribution function C and the error generated 
E g (m,n). 

After calculating the propagated error E p (m, n ), add it to the input image 
I(m, n ) and give the sum to T. Now compare T to a threshold value, which 
is usually set to half the number of gray shades. For instance, for an image 
with 256 gray shades, set threshold = 128. If the results are unsatisfactory, 
experiment with different values for the threshold. If T is greater than the 
threshold, set the (m,n) pixel to 1 and reset the generated error E g (m,n). If 
T is less than the threshold, set the (m,n) pixel to 0 and set the generated 
error E g (m,n ) to threshold. 

Listing 3.1 shows the code that implements the halftoning algorithm via 
the function half-tone. First, the code initializes the error-distribution func- 
tion in the array c. Next it sets the error arrays eg and ep to 0 (step 1 of 
the algorithm). The loops over m and n implement steps 2 and 3 of the al- 
gorithm. The code performs the total propagated error calculation of step 4 
inside the loops over i and j . The code calculates t and then decides whether 
to set the pixel to 1 or 0. 



3.3 Sample Output 

Figure 3.2 shows a picture of a boy. Figure 3.3 shows the resulting of halton- 
ing figure 3.2 with threshold set to 128 (half of 256). The result of halftoning 
is easy to recognize when compared with the input image. The true value 
of this 1/0 image comes in the next section because it can be printed as a 
poster. 
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Figure 3.3: Output Halftoned Boy Image 





3.4. PRINTING AN IMAGE 
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3.4 Printing an Image 

One use of halftoning and the dumpb program is creating a wall poster from 
a gray scale image. The first step is to halftone the original image as shown 
in figures 3.2 and 3.3. The next step is to run the dumpb program to create a 
large text file of spaces and asterisks. Finally, use a word processor to print 
the space-asterisk text file. 

The final step takes some work and skill. The space-asterisk text file will 
probably be too wide to fit on a piece of printer paper. Use a word processor, 
set all the text to a fixed-space font (some type of courier), and use a small 
font (down to 2 or 3 points). That usually narrows the image to a page 
width. Maybe set the printer to print sideways instead of regular. 

The “image” will still not be right because it will long stretched vertically. 
This is because the characters are taller than they are wide (the line feeds 
makes it look this way). Replace every two spaces with three spaces and do 
the same for the asterisks. Now the image “looks right.” Print it. Cutting 
and pasting will be necessary to remove the white space from page breaks. 

Figure 3.4 shows the result. This is a picture of a simple boy poster 
hanging on the wall. The more work and skill, the better the result. Still, 
this is a nice wall picture. 

3.5 Conclusions 

This chapter has discussed halftoning — a method for transforming a gray 
scale image to a black and white (1/0) image. The 1/0 image appears to have 
shades of gray. A program that performs this transformation was described. 
An interesting use of halftoning is to dump the 1/0 image to a text hie and 
use a word processor to print a wall poster. 



3.6 Reference 

3.1. “Personal Computer Based Image Processing with Halftoning,” John A 
Saghri, Hsieh S. Hou, Andrew F. Tescher, Optical Engineering, March 1986, 
Vol. 25, No. 3, pp. 499-504. 
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Figure 3.4: Poster Created with the dumpb Program 





Chapter 4 

Histograms and Equalization 



4.1 Introduction 

CIPS is almost ready for image processing operators except for one more 
“preliminary” capability — histograms and histogram equalization. This 
chapter shows why histogram equalization is a prerequisite to performing 
other image processing operations and presents source code to implement 
histogram equalization. It also presents a program that creates an image of 
an image’s histogram and another program that permits combining the two 
images into one. 



4.2 Histograms 

A histogram uses a bar graph to profile the occurrences of each gray level 
present in an image. Figure 4.1 shows a simple histogram. The horizontal 
axis is the gray-level values. It begins at zero and goes to the number of 
gray levels (256 in this example). Each vertical bar represents the number 
of times the corresponding gray level occurred in the image. In Figure 4.1 
the bars “peak” at about 70 and 110 indicating that these gray levels occur 
most frequently in the image. 

Among other uses, histograms can indicate whether or not an image was 
scanned properly. Figure 4.2 shows a histogram of an image that was poorly 
scanned. The gray levels are grouped together at the dark end of the his- 
togram. This histogram indicates poor contrast. When produced from a 
normal image, it indicates improper scanning. The scanned image will look 
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Figure 4.1: Simple Histogram 



like a TV picture with the brightness and contrast turned down. (Of course, 
the same histogram could indicate proper scanning for certain unusual im- 
ages, such as a black bear at night). 

Histograms also help select thresholds for object detection (an object 
being a house, road, or person). Objects in an image tend to have similar 
gray levels. For example, in an image of a brick house, all the bricks will 
usually have similar gray levels. All the roof shingles will share similar gray 
levels, but differ from the bricks. In Figure 4.1, for example, the valleys 
between the peaks at about 60 and 190 might indicate that the image contains 
three major kinds of objects perhaps bricks, roof, and a small patch of sky. 
Practical object identification is never simply a matter of locating histogram 
peaks, but histograms have been important to much of the research in object 
identification. 

Figure 4.3 shows the an image with its histogram. The gray levels in 
the histogram reach across most of the scale, indicating that this image 
was scanned with good contrast. Figure 4.4 shows a house image with its 
histogram. Again, the histogram stretches across much of the scale indicating 
good scanning and contrast. 

Because the dark objects and the bright objects in an image with poor 
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Figure 4.2: Histogram of a Poorly Scanned Image 



contrast have almost the same gray level, the gray shades from such an image 
will be grouped too closely together (Figure 4.2). Frequently the human eye 
will have difficulty distinguishing objects in such an image. Image processing 
operators will have even less success. 



4.3 Histogram Equalization 

Figure 4.5 shows an image with poor contrast (a poorly scanned aerial pho- 
tograph). The rectangles in the center of the picture are house trailers. The 
areas around the house trailers are roads, parking lots, and lawns. The his- 
togram in the lower right-hand corner shows that the gray levels are grouped 
in the dark half of the scale. There are trees and bushes in the lawn areas of 
the image. You cannot see them, however, because their gray levels are too 
close to the gray levels of the grass. 

The cure for low contrast images is “histogram equalization.” Equaliza- 
tion causes a histogram with a mountain grouped closely together to “spread 
out” into a flat or equalized histogram. Spreading or flattening the histogram 
makes the dark pixels appear darker and the light pixels appear lighter. The 
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Figure 4.4: House Image with Histogram 



key word is “appear.” The dark pixels in Figure 4.5 cannot be any darker. If, 
however, the pixels that are only slightly lighter become much lighter, then 
the dark pixels will appear darker. Please note that histogram equalization 
does not operate on the histogram itself. Rather, histogram equalization uses 
the results of one histogram to transform the original image into an image 
that will have an equalized histogram. 

The histogram equalization algorithm may make more sense by outlining 
the derivation of the underlying mathematical transform. (The full deriva- 
tion is found in Reference [4.1].) Equation 4.1 represents the equalization 
operation, where c is an image with a poor histogram. The as yet unknown 
function / transforms the image c into an image b with a flat histogram. 

b(x,y) = f[c(x,y)\ (4.1) 

Equation 4.2 shows the probability-density function of a pixel value a. 
Pi (a) is the probability of finding a pixel with the value a in the image. Areai 
is the area or number of pixels in the image and Hi(a) is the histogram of 
the image. 



Pi(a) = 



1 

Areai 



Hi(a) 



(4.2) 
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Figure 4.5: Image with Poor Contrast 




4.4. EQUALIZATION RESULTS 



39 



For example, if 
a = 100 

Areai — 10, 000 
44i(100) = 10 
then 

pi(100) = 10/10,000 = 0.001 

Equation 4.3 shows the cumulative-density function (cdf) for the pixel 
value a. The cdf is the sum of all the probability density functions up to the 
value a. 



= (4.3) 

For example, 

Pi(10) = 1/10, 000 * [44(0) + 44(1) + ... + 44(10)] 

Equation 4.4 shows the form of the desired histogram equalization func- 
tion f(a). H c (a) is the histogram of the original image c (the image with 
the poor histogram). D m is the number of gray levels in the new image b. 
D m — 1 /p(a) for all pixel values a in the image b. Note that the image b has 
a “flat” histogram 
44(0) = 44(1) = 44(2) = ... 

because the probability of each pixel value is now equal — they all occur 
the same number of times. So /(a) simply takes the probability density 
function for the values in image b and multiplies this by the cumulative 
density function of the values in image c. It is important to realize that 
histogram equalization reduces the number of gray levels in the image. This 
seems to be a loss, but it is not. 

(4 - 4) 

The algorithm for performing histogram equalization (see Figure 4.6) is 
simpler than the equations. 



4.4 Equalization Results 

Figures 4.7, 4.8, and 4.9 show the result of histogram equalization. The 
appearance of some images improves after histogram equalization while it 
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1 . calculate histogram 

loop over i ROWS of input image 

loop over j COLS of input image 
k = input _ image [i] [j] 
hist [k] = hist [k] + 1 
end loop over j 
end loop over i 

2. calculate the sum of hist 

loop over i gray levels 
sum = sum + hist [i] 
sum_of _hist [i] = sum 
end loop over i 

3. transform input image to output image 

area = area of image (ROWS x COLS) 

Dm = number of gray levels in output image 
loop over i ROWS 

loop over j COLS 

k = input_image [i] [j] 

out_image [i] [j] = (Dm/area) x sum_of _hist [k] 
end loop over j 
end loop over i 



Figure 4.6: Histogram Equalization Algorithm 
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degrades with other images. For Figure 4.7 (an equalized version of Figure 
4.6) the appearance improves. Note the equalized histogram. 




Figure 4.7: Equalized Version of Figure 4.5 

The aerial photograph, although fuzzy, has much improved contrast. The 
dark spots in the lawn areas are trees. If you look closely at Figure 4.7 you 
may be able to see these trees. Figure 4.8 shows details from these two 
images together with their histograms. The unequalized image on the left of 
Figure 4.8 is dark. In the equalized image on the right of Figure 4.8 you can 
distinguish the trees and bushes from the grass. 

With some photographs the equalized image may appear worse than the 
original image. In a properly scanned image, for example, histogram equal- 
ization can introduce “noise” into what were uniform areas of an image. Such 
“noise” may not be undesirable — in many cases it reflects subtle texture or 
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Figure 4.8: Comparing Figures 4.6 and 4.7 



detail lost in the more “natural” image. 

Figure 4.9 (segments from the house in Figure 4.4) shows how equalization 
affects a properly scanned image. The histogram for the unequalized image 
on the top stretches across much of the scale. The bricks, windows, and trees 
are easy to see. However, in the equalized image on the bottom, the window 
and the brick appear too bright. While the equalized image does not appear 
as pleasant, it does have better contrast. The darks appear darker and the 
lights appear lighter. In this case, however, they are probably too dark and 
too light. 

Since variations in scanning can significantly affect the results of image 
processing operators, histogram equalization is a prerequisite for further im- 
age processing. If you scan an image too bright or too dark, you can remove 
objects from an image. The result may “improve” the apparent performance 
of processing and lead you to overestimate the effectiveness of an operator. 
Consistently pre-processing images with a histogram equalization operation 
will ensure consistency in all results. 
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Figure 4.9: Equalizing a Properly Scanned Image 
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4.5 Implementation 

The code in Listing 4.1 implements the histogram operations. The ba- 
sic data structure is a 256-element array of unsigned longs. The function 
zero -histogram zeros or clears the histogram array. The function calcu- 
lateJiistogram creates the histogram for an image array. It loops through 
the image array, takes the pixel value, and increments that element in the 
histogram array. 

The function perform_histogram_equalization implements the algorithm 
shown in Figure 4.6. The first loop over i calculates the sum of h array. The 
loops over length and width transforms each pixel in the image to a new value 
using the number of gray levels in the new image, the area of the image, and 
the sum_of Ji array. 

The code in Listing 4.2 is the main routine of the histeq program. It calls 
the histogram routines of Listing 4.1 to transform an image by equalizing its 
histogram. This program produced Figure 4.7 and part of Figure 4.9. Its 
structure is like the halftone program of chapter 3 and the vast majority of 
programs in this book. It checks the command line, creates arrays, reads 
input, call the histogram functions, and writes output. 

Listing 4.3 shows the source code for the himage program. This program 
reads an image, calculates its histogram, and draws that histogram to another 
image file. This program produced the histograms that appeared with the 
images in this chapter. The opening structure of himage is similar to histeq 
as it reads the input file and calculates its histogram. The remainder of 
himage draws an axis and tick marks in the output file and draws lines to 
represent the histogram levels. The code scales the lines to keep them in 
the image. The user can specify the size of the histogram image or use the 
default values of L and W. The user must specify a width of more than 256 
(the number of gray shades) . It is best to have the histogram image the same 
width as the original image. That allows you to combine the two image with 
the side program described next. 



4.6 The side Program 

A bonus in this chapter is the side program. It combines to images into one 
image by either pasting them side by side or on top of one another. The side 
program created the images shown in the chapter where the image and its 
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histogram are shown together. The himage program created the image of 
the histogram, and the side program pasted them together. Listing 4.4 show 
the side program. A key to the program is that the two images to be pasted 
together must have the correct dimensions. If they are to be combined side 
by side, they must have the same height. If they are to be combined top 
to bottom, they must have the same width. The program simply reads the 
two input images, combines them in a large output image array, and writes 
the result to a large output file. The side program is very useful when you 
want to show two images at once to highlight differences and illustrate how 
an operator alters an image. 



4.7 Conclusions 

This chapter has discussed histograms and histogram equalization. His- 
tograms show the occurrences of gray shades in an image as a bar graph. 
Histogram equalization adjusts the contrast in an image by spreading its his- 
togram. This often improves the appearance of an image. Also presented 
in this chapter is a program that calculates an images histogram and stores 
that as a picture in an image file. Another program presented pastes images 
side by side. 

4.8 Reference 

4.1 “Digital Image Processing,” Kenneth R. Castleman, Prentice-Hall, 1979. 
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Chapter 5 

Basic Edge Detection 



5.1 Introduction 

Edge detection is one of the fundamental operations in image processing. 
Many other operations are based on edge detection and much has been writ- 
ten about this subject. This chapter will discuss the subject and explore 
some basic techniques. The next chapter will discuss some advanced forms 
of edge detection. 



5.2 Edge Detection 

This chapter introduces edge detection and shows some basic edge detectors. 
The next chapter continues with some advanced edge detectors. Detecting 
edges is a basic operation in image processing. The edges of items in an 
image hold much of the information in the image. The edges tell you where 
items are, their size, shape, and something about their texture. 

The top part of Figure 5.1 shows the side view of an ideal edge. An edge 
is where the gray level of the image moves from an area of low values to high 
values or vice versa. The edge itself is at the center of this transition. An 
edge detector should return an image with gray levels like those shown in the 
lower part of Figure 5.1. The detected edge gives a bright spot at the edge 
and dark areas everywhere else. Calculus fans will note the detected edge is 
the derivative of the edge. This means it is the slope or rate of change of the 
gray levels in the edge. The slope of the edge is always positive or zero, and 
it reaches its maximum at the edge. For this reason, edge detection is often 



47 




48 



CHAPTER 5. BASIC EDGE DETECTION 



called image differentiation. 




Figure 5.1: Graphs of Gray Scale Values at Edges 

The problem in edge detection is how to calculate the derivative (the 
slope) of an image in all directions? Convolution of the image with masks is 
the most often used technique of doing this. An article by Wesley Faler in 
The C Users Journal discussed this technique [5.1]. The idea is to take a 3 
x 3 array of numbers and multiply it point by point with a 3 x 3 section of 
the image. You sum the products and place the result in the center point of 
the image. 

The question in this operation is how to choose the 3x3 mask. Faler 
used several masks shown in Figure 5.2. These are basic masks that amplify 
the slope of the edge. Take the simple one-dimensional case shown in Figure 
5.1. Look at the points on the ideal edge near the edge. They could have 
values such as [3 5 7]. The slope through these three points is (7 — 3)/2 = 
2. Convolving these three points with [-1 0 1] produces -3 + 7 = 4. The 
convolution amplified the slope, and the result is a large number at the 
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Figure 5.2: Masks Used by Faler for Edge Detection 



transition point in the edge. Convolving [-1 0 1] with a line performs a type 
of differentiation or edge detection. 

The number of masks used for edge detection is almost limitless. Re- 
searchers have used different techniques to derive masks and then experi- 
mented with them to discover more masks. Figure 5.3 shows four masks used 
in the source code and examples in this chapter. The first three masks are 
the Kirsch, Prewitt, and Sobel masks as given in Levine’s text [5.2] (there are 
different masks bearing the same name in the literature) [5.3]. The fourth 
mask, the “quick” mask, is one I “created” while working on this process 
(there is no doubt that someone else created this mask before me) . 

The Kirsch, Prewitt, and Sobel masks are “compass gradient” or direc- 
tional edge detectors. This means that each of the eight masks detects an 
edge in one direction. Given a pixel, there are eight directions to travel to 
a neighboring pixel (above, below, left, right, upper left, upper right, lower 
left, and lower right). Therefore, there are eight possible directions for an 
edge. The directional edge detectors can detect an edge in only one of the 
eight directions. To detect only left to right edges, use only one of the eight 
masks. To detect all of the edges, perform convolution over an image eight 
times using each of the eight masks. The “quick mask” is so named because 
it can detect edges in all eight directions in one convolution. This has obvious 
speed advantages. There are, however, occasions when detecting one type of 
edge is desired, so use a directional mask for those occasions. 

There are two basic principles for each edge detector mask. The first 
is that the numbers in the mask sum to zero. If a 3 x 3 area of an image 
contains a constant value (such as all ones), then there are no edges in that 
area. The result of convolving that area with a mask should be zero. If the 
numbers in the mask sum to zero, convolving the mask with a constant area 
will result in the correct answer of zero. The second basic principle is that 
the mask should approximate differentiation or amplify the slope of the edge. 
The simple example [-10 1] given earlier showed how to amplify the slope of 
the edge. The first Kirsch, Prewitt, and Sobel masks use this idea to amplify 
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Figure 5.3: Masks for Edge Detection 
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an edge ramping up from the bottom of an image area to the top. 



5.3 Implementing Edge Detectors 

Listing 5.1 shows source code that will implement the four edge detectors 
shown in Figure 5.3. The first section of code declares the masks shown in 
Figure 5.3. The functions detect .edges and perform convolution implement 
the Kirsch, Prewitt, and Sobel edge detectors. The detect edges function 
calls perform.convolution to detect the edges. Next, it “fixes” the edges of 
the output image (more on this later) and writes it to the output image hie. 

The function perform.convolution does the convolution operation eight 
times (once for each direction) to detect all the edges. First, it calls setup masks 
to copy the correct masks. The parameter detect type determines which 
masks to use. The convention is type l=Prewitt, 2=Kirsch, and 3=Sobel. 
The function perform.convolution clears the output image, sets several max- 
imum values, and does the convolution eight times over the entire image 
array. At each point, the code checks to see if the result of convolution is 
greater than the maximum allowable value or less than zero, and corrects for 
these cases. 

After convolution, there is the option of thresholding the output of edge 
detection. Edge detectors produce results that vary from zero to the maxi- 
mum gray level value. This variation shows the strength of an edge. An edge 
that changes from 10 to 200 will be stronger than one that changes from 10 
to 50. The output of convolution will indicate this strength. It is often desir- 
able to threshold the output so strong edges will appear relatively bright (or 
dark) and weak edges will not appear at all. This lowers the amount of noise 
in the edge detector output and yields a better picture of the edges. The 
detect edges and perform convolution functions pass a threshold parameter. 

If threshold 1, perform.convolution goes through the output image and 

sets any pixel above the high parameter to the maximum and any pixel below 
the high parameter to zero. 

The quick edge function performs edge detection using the single 3x3 
quick jmask. It performs convolution over the image array using the quick mask. 
It thresholds the output image if requested, and fixes the edges of the out- 
put image. All these operations are the same as in the detect .edges and 
p er for m _co nvolut io n functions. 

Several short utility functions make up the remainder of Listing 5.1. The 
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setup .masks function copies the desired type of mask (Kirsch, Prewitt, or So- 
bel) into the mask arrays for the perform_convolution function. The fix edges 
function corrects the output image after convolution (fix_edges is shown in 
this listing, but resides in source code file utility.c). Convolving a 3 x 3 mask 
over an image array does not process the pixels along on the outer edge of 
the image. The result is a blank line around the image array. The fix.edges 
function goes around the edge of the image array and copies valid values out 
to the edge. This removes the distracting lines. 

These edge detectors are called by the main routine of the medge program. 
The medge program ties these and the edge detectors described in the next 
chapter into one convenient program. That program is presented in the next 
chapter. 



5.4 Results 

Let’s close with examples of the edge detectors in action. Figure 5.4 shows 
a house image. Figure 5.5 shows the result of applying the Kirsch edge 
detector masks. Figure 5.6 shows the result of the Prewitt masks and Figure 
5.7 shows the result of the Sobel masks. Figures 5.5, 5.6, and 5.7 are outputs 
that were thresholded. Edge values above a threshold of 33 were set to 255 
and all others were set to zero. This gives a clear picture of edges and non- 
edges. Figure 5.8 shows the result of applying the Sobel masks and not 
thresholding the result. If you look closely, you can see some variations in 
gray level indicating some edges are stronger than others. Figure 5.9 shows 
the result of applying the quick mask. The results of the quick mask are as 
good as the other masks, and it operates in one-eighth the time. 



5.5 Conclusion 

This chapter discussed basic edge detection. The next chapter continues the 
discussion of edge detection. There are many creative methods of detect- 
ing edges in images. The next chapter discusses the homogeneity operator, 
the difference operator, contrast-based edge detection, and edge filtering by 
varying the size of the convolution mask. 
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Figure 5.6: The Result of the Prewitt Masks 




Figure 5.7: The Result of the Sobel Masks 
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Figure 5.8: The Result of the Sobel Masks Without Thresholding 




Figure 5.9: The Result of the Quick Mask 
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Chapter 6 

Advanced Edge Detection 



6.1 Introduction 

There are many different methods of edge detection. Chapter 5 discussed 
some basic techniques. This chapter discusses some unusual and advanced 
ideas and presents four edge detectors. The first two do not use the convo- 
lution operation — they use only subtraction. The third edge detector can 
vary the level of detail of the edges it will detect. The fourth edge detector 
will detect edges in unevenly lit images. Finally, an edge detector is used to 
enhance the appearance of an original image. Figure 6.1 shows the original 
image used by all the operators. 




Figure 6.1: Original House Image 
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6.2 Homogeneity Operator 

The first edge detector is the homogeneity operator [6.1] which uses subtrac- 
tion to find an edge. Figure 6.2 shows an example of this operator. The 
operator subtracts each of the pixels next to the center of a 3x3 area from 
the center pixel. The result is the maximum of the absolute value of these 
subtractions. Subtraction in a homogeneous region (one that is a solid gray 
level) produces zero and indicates an absence of edges. A region containing 
sharp edges, such as area 2 of Figure 6.2, has a large maximum. 

The first section of Listing 6.1 shows the homogeneity function. This 
function is similar in form to the edge detectors discussed in Chapter 5. In 
the loop over rows and cols, the code performs the subtraction and finds 
the maximum absolute value of the subtractions. The homogeneity operator 
requires thresholding (which you can specify) . A perfectly homogeneous 3x3 
area is rare in an image. If you do not threshold, the result looks like a faded 
copy of the original. Thresholding at 30 to 50 for a 256 gray level image gives 
good results. 

Figure 6.3 shows the result of the homogeneity operator. This operator 
gives a good rendition of the edges in the original house image. This is a 
quick operator that performs only subtraction — eight operations per pixel 
— and no multiplication. 



6.3 Difference Operator 

The next edge detector is the difference operator, another simple operator 
that uses subtraction. Recall that edge detection is often called image differ- 
entiation (detecting the slope of the gray levels in the image) . The difference 
operator performs differentiation by calculating the differences between the 
pixels that surround the center of a 3x3 area. 

Figure 6.4 shows an example of the dif ference operator. The difference 
operator finds the absolute value of the differences between opposite pixels, 
the upper left minus lower right, upper right minus lower left, left minus 
right, and top minus bottom. The result is the maximum absolute value. 
The results shown in Figure 6.4 are similar but not exactly equal to those 
from the homogeneity operator in Figure 6.2. 

The second part of Listing 6.1 shows the difference.edge function, which 
is similar to the homogeneity function. The difference edge function loops 
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Area 1 : 

1 2 3 

4 5 6 

7 8 9 

Output of homogeneity edge detector is : 
max of { 

15-11 15-21 15-31 

15-41 15-61 15-71 

15-81 15-91 

> = 4 



Area 2: 

10 10 10 
10 10 10 
10 10 1 

Output of homogeneity edge detector is: 
max of { 

I 10 - 10 I I 10 - 10 I I 10 - 10 I 

I 10 - 10 I I 10 - 10 I I 10 - 10 I 

I 10 - 10 I I 10 - 1 I 

> = 9 



Area 3: 

10 5 3 

10 5 3 

10 5 3 

Output of homogeneity edge detector is : 
max of { 

15- 101 15-51 15-31 

15 - 10 1 15-31 15 - 10 1 

15-51 15-31 

> = 5 



Figure 6.2: An Example of the Homogeneity Operator 
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Figure 6.3: Result of Homogeneity Edge Detector 



over the input image array and calculates the absolute values of the four 
differences. As in the homogeneity case, the difference operator requires 
thresholding. 

Figure 6.5 shows the result of the difference edge detector. This result 
is similar to that shown in Figure 6.3. The difference edge detector did de- 
tect more of the brick and mortar lines than the homogeneity operator. The 
choice between the two edge detectors depending on the desired detail. The 
difference operator is faster than the homogeneity operator. The difference 
operator uses only four integer subtractions per pixel, while the homogeneity 
operator uses eight subtractions per pixel. These compare to the nine mul- 
tiplications and additions for the convolution-based edge detectors discussed 
in Chapter 5. 



6.4 Difference of Gaussians 

The next operator to examine is the difference of Gaussians edge detector, 
which allows varying the width of a convolution mask and adjusting the 
detail in the output [6.2, 6.3]. The results in Figures 6.3 and 6.5 are good. 
Suppose, however, we wanted to detect only the edges of the large objects 
in the house image (door, windows, etc.) and not detect the small objects 
(bricks, leaves, etc.). 

Varying the width of convolution masks eliminates details. If a mask 
is wide, convolving an image will smooth out details, much like averaging. 
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Output of difference edge detector is: 
max of { 

11-91 17-31 

14-61 12-81 

> = 8 
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Area 3: 

10 5 3 

10 5 3 

10 5 3 

Output of difference edge detector is: 
max of { 

I 10 - 31 I 10 - 31 

I 10 - 31 15-51 



Figure 6.4: An Example of the Difference Operator 
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Figure 6.5: Result of Difference Edge Detector 



Stock market prices vary greatly by the minute. The variations lesson when 
the prices are examined hourly. Examining the prices weekly causes the 
variations to disappear and general trends to appear. Convolving an image 
with a wide, constant mask, smoothes the image. Narrower, varying masks, 
permit the details to remain. 

Figure 6.6 shows two example masks. These masks are “difference of 
Gaussians” or “Mexican hat” functions. The center of the masks is a positive 
peak (16 in the 7x7 masks — 19 in the 9x9 mask). The masks slope downward 
to a small negative peak (-3 in both masks) and back up to zero. The curve 
in the 9x9 mask is wider than that in the 3x3 mask. Notice how the 9x9 mask 
hits its negative peak three pixels away from the center while the 7x7 masks 
hits its peak two pixels away from the center. Also, notice these masks use 
integer values. Most edge detectors of this type use floating point numbers 
that peak at +1. Using integers greatly increases the speed. 

Figure 6.7 illustrates how the narrower mask will detect small edges the 
wide mask misses. Each area in Figure 6.7 has a small pattern similar to the 
brick and mortar pattern in the house image. This pattern has small objects 
(bricks) with many edges. Convolving the 7x7 mask in Figure 6.6 with the 
7x7 area in Figure 6.7, results in a +40; the 7x7 mask detected an edge at 
the center of the 7x7 area. Doing the same with the 9x9 mask in Figure 6.6 
with the 9x9 area in Figure 6.7, produces a -20; the 9x9 mask did not detect 
any edges. The “hat” in the 9x9 mask was wide enough to smooth out the 
edges and not detect them. 
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Figure 6.6: Gaussian “Mexican Hat” Masks 
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Figure 6.7: Detecting Small Edges 
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The first section of Listing 6.1 shows the two Gaussian masks and the 
function gaussian edge, gaussian edge has the same form as the other edge 
detectors. An additional size parameter (either 7 or 9) specifies mask width. 
The inner loop over a and b varies with this parameter. The processing 
portion is the same as the other convolution mask edge detectors presented 
in Chapter 5. With gaussian_edge, thresholding can produce a clear edge 
image or leave it off to show the strength of the edges. 

Figure 6.8 shows the result of edge detection using the narrower 7x7 mask 
and Figure 6.9 shows the result of the wider 9x9 mask. The narrower mask 
(Figure 6.8) detected all the edges of the bricks, roof shingles, and leaves. 
The wider mask (Figure 6.9) did not detect the edges of small objects, only 
edges of the larger objects. Figure 6.8 might be too cluttered, so use the 
wider mask. If fine detail is desired, the narrower mask is the one to use. 




Figure 6.8: Result of Gaussian Edge Detector with 7x7 Mask 



6.5 More Differences 

The other edge detectors presented so far can detect edges on different size 
objects. The homogeneity operator can take the difference of the center pixel 
and a pixel that is two or three pixels away. The difference edge detector 
can take the difference of opposite pixels in a 5x5 or 7x7 area instead of a 
3x3 area. The quick mask in Chapter 5 can change from 3x3 to 5x5 with the 
center value equal to 4 and the four corners equal to -1. Try these changes 



as an exercise. 
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Figure 6.9: Result of Gaussian Edge Detector with 9x9 Mask 

6.6 Contrast-based Edge Detector 

One problem with detecting edges involves uneven lighting in images. The 
contrast-based edge detector [6.4] helps take care of this problem. In well lit 
areas of an image the edges have large differences in gray levels. If the same 
edge occurs in a poorly lit area of the image, the difference in gray levels is 
much smaller. Most edge detectors result in a strong edge in the well lit area 
and a weak edge in the poorly lit area. 

The contrast-based edge detector takes the result of any edge detector and 
divides it by the average value of the area. This division removes the effect 
of uneven lighting in the image. The average value of an area is available by 
convolving the area with a mask containing all ones and dividing by the size 
of the area. 

Figure 6.10 illustrates the contrast-based edge detector. Almost any edge 
detector can be the basis for this operation. Figure 6.10 uses the quick edge 
detector from Chapter 5. The edge in the well lit area is an obvious and 
strong edge. Convolving the quick mask with this area yields 100. The edge 
in the poorly lit area is easy to see, but convolving with the quick mask 
results in 10, a weak edge that thresholding would probably eliminate. This 
distinction should be avoided. The well lit and poorly lit edges are very 
similar; both change from one gray level to another gray level that is twice 
as bright. 

Dividing by the average gray level in the area corrects this discrepancy. 
Figure 6.10 shows the smoothing mask that calculates the average gray level. 
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convolution of smoothing mask with edge in well lit area yields: 
50+50+50+100+100+100+100+100+100 / 9 = 750/9 = 83 

convolution of smoothing mask with edge in poorly lit area yields 
5+5+5+10+10+10+10+10+10 / 9 = 75/9 = 8 

dividing original convolution by the smoothing mask result: 
edge in well lit area: 100 / 83 = 1 
edge in poorly lit area: 10 / 8 = 1 



Figure 6.10: Contrast-Based Edge Detector 
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Convolving the well lit area yields an average value of 83. Convolving the 
poorly lit area yields an average value of eight. Dividing (integer division) 
the strong edge in the well lit area by 83 yields one. Dividing the weak edge 
by eight also gives a result of one. The two edges from unevenly lit areas 
yield the same answer and you have consistent edge detection. 

The next section of Listing 6.1 shows the contrast.edge function that 
follows the same steps as the other edge detector functions. The difference is 
in the processing loop over a and b, which calculates two convolutions: sum_n 
(the numerator or quick edge output) and sum d (the smoothing output). 
After the loops over a and b, divide sum_d by nine and divide sum_n by this 
result. The e_mask at the beginning of Listing 6.1 replaces the quick mask 
from Chapter 5, with every element in the quick mask multiplied by nine. 
The larger values are necessary because dividing by the average gray level 
could reduce the strength of all edges to zero. 

Figure 6.11 shows the result of the regular quick edge detector. Fig- 
ure 6.12 shows the result of dividing the quick edge result by the average 
value to produce contrast-based edge detection. Notice the inside of the up- 
stairs and downstairs windows. Figure 6.11 (quick edge) shows edges inside 
the downstairs windows, but not inside the upstairs windows. Figure 6.12 
(contrast-based) shows details inside the downstairs and upstairs windows. 
Refer to the original image (Figure 6.1). The downstairs windows are shaded 
and the upstairs windows are not. Contrast-based edge detection gives better 
results in uneven lighting. 




Figure 6.11: Result of Quick Edge Detector 
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Figure 6.12: Result of Contrast-Based Edge Detector 



Contrast-based edge detection is possible with any edge detector. As a 
project, try modifying the homogeneity edge detector by dividing its result 
by the average gray level — but first multiply the result of homogeneity by 
a factor (nine or more) so dividing does not reduce edge strengths to zero. 
Modify any of the other edge detectors in a similar manner. 



6.7 Edge Enhancement 

A good application of edge detectors is to enhance edges and improve the 
appearance of an original image. Detect the edges in an image and overlay 
these edges on top of the original image to accent its edges. The last section 
of Listing 6.1 shows the enhance edges function, which repeats the quick edge 
function from Chapter 5 with a few added lines of code. Examine the code 
right after the loops over a and b. If the result of convolution (the sum 
variable) is greater than a user-chosen threshold, the output image is assigned 
that value. If not, the output image is assigned the value from the input 
image. The result is the input image with its strong edges accented. 

Figure 6.13 shows the result of enhancing the edges of Figure 6.1. The 
edges of the bricks, the siding in the left, and the lines on the garage door 
are all sharper. 

Any edge detector can be used to enhance the edges in an input image. 
Simply add the option of taking the edge detector result or a value from the 
input image. An interesting project would be to use the 9x9 Gaussian mask 
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Figure 6.13: Result of Edge Enhancement 



to detect the edges of large objects and then use these edges to enhance the 
input image. 



6.8 Variance and Range 

The chapter ends with two edge detectors similar to the difference edge de- 
tector in that they look at the image numbers inside a small area. The 
variance operator, examines a 3x3 area and replaces the center pixel with 
the variance. The variance operator subtracts the pixel next to the center 
pixel, squares that difference, adds up the squares of the differences from 
the eight neighbors, and takes the square root. The other edge detector, the 
range operator, sorts the pixels in an nxn area and subtracts the smallest 
pixel value from the largest to produce the range. 

Figure 6.14 shows the results of applying the variance and range operators 
to an array of numbers. Figures 6.15 and 6.16 show the outcome of applying 
these operators. 



6.9 Applications 

Listing 6.2 shows the medge program that ties together all the edge detectors 
from this and the previous chapter. The user chooses among 11 different edge 
detectors. Entering the medge command without any parameters causes the 
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Figure 6.14: The Results of Applying the Variance and Range Operators to 
an Array of Numbers 
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Figure 6.15: Result of Variance Edge Detector 




Figure 6.16: Result of Range Edge Detector 
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usage message to appear and give examples of each operator. Regardless of 
the operator chosen, the program does the usual creating an output image 
file, allocating arrays, and reading input data. The program uses the second 
command line parameter to step into an if statement to interpret the other 
parameters. It then calls the desired edge detector and writes the result 
to the output image. The medge program serves as a pattern for programs 
in the following chapters that collect a number of related image processing 
operations. 



6.10 Conclusions 

This chapter has continued the discussion of edge detectors. The homogene- 
ity, difference, variance, and range edge detectors work by subtracting pixel 
values inside a small area around an edge. The Gaussian edge detector con- 
volves an image with a “Mexican hat” image piece. The contrast-based edge 
detector compensates for differences in brightness levels in different parts of 
an image. These edge detectors will be used again during the segmentation 
chapters later in this book. 

6.11 References 

6.1 “Recognizing Objects in a Natural Environment: A Contextual Vision 
System (CVS),” Martin A. Fischler, Thomas M. Strat, Proceedings Image 
Understanding Workshop, pp. 774-796, Morgan Kaufmann Publishers, May 
1989. 

6.2 “Digital Image Processing,” Kenneth R. Castleman, Prentice-Hall, 1979. 

6.3 “Vision in Man and Machine,” Martin D. Levine, McGraw-Hill, 1985. 
6.4. “Contrast-Based Edge Detection,” R. P. Johnson, Pattern Recognition, 
Vol. 23, No. 3/4, pp. 311-318, 1990. 




74 



CHAPTER 6. ADVANCED EDGE DETECTION 




Chapter 7 



Spatial Frequency Filtering 



7.1 Spatial Frequencies 

All images and pictures contain spatial frequencies. Most of us are familiar 
with some type of frequency such as the 60-cycle, 110- volt electricity in our 
homes. The voltage varies in time as a sinusoid, and the sinusoid completes 
a full cycle 60 times a second — a frequency of 60 Hertz. 

Images have spatial frequencies. The gray level in the image varies in 
space (not time), i.e. it goes up and down. Figure 7.1 shows the side view of 
an image with low spatial frequencies. The gray level is low at the left edge 
of the figure, stays constant for a while, then shifts to a higher gray level. 
The gray level is fairly constant throughout (only one change in space) and 
so the figure has low spatial frequencies. 

Figure 7.2 shows the side view of an image with high spatial frequencies. 
The gray level changes many times in the space of the image. The rate or 
frequency of change in the space of the image is high, so the image has high 
spatial frequencies. 



7.2 Filtering 

Filtering is also a common concept. Adjusting the bass and treble on stereos 
filters out certain audio frequencies and amplifies others. High-pass filters 
pass high frequencies and stop low frequencies. Low-pass filters stop high 
frequencies and pass low frequencies. In the same manner, it is possible to 
filter spatial frequencies in images. A high-pass filter will amplify or “pass” 
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Figure 7.1: Side View of an Image with Low Spatial Frequencies 




Figure 7.2: Side View of an Image with High Spatial Frequencies 



7.3. APPLICATION OF SPATIAL IMAGE FILTERING 
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frequent changes in gray levels and a low-pass filter will reduce frequent 
changes in gray levels. 

Consider the nature of a frequent or sharp change in gray level. Figure 7.1 
showed an image with only one change in gray level. That change, however, 
was very sharp — it was an edge. A high-pass filter will pass, amplify, or 
enhance the edge. A low-pass filter will try to remove the edge. Instead of an 
instant move from one gray level to another, the low-pass filter will produce 
a gradual slope between the two levels. The two gray levels will still exist, 
but the transition will be slower. 



7.3 Application of Spatial Image Filtering 

Spatial image filtering has several basic applications in image processing. 
Among these are noise removal, smoothing, and edge enhancement. Noise in 
an image usually appears as snow (white or black) randomly sprinkled over 
an image. Spikes, or very sharp, narrow edges in the image cause snow. A 
low-pass filter smoothes and often removes these sharp edges. 

Edge enhancement improves the appearance of an image by sharpening 
the outlines of objects. Chapter 6 described how an edge detector enhanced 
edges. The detected edges were overlaid on top of the original image to 
emphasize the edges. A high-pass filter produces the same result in one 
operation. 



7.4 Frequency vs. Spatial Filtering 

Consider sound as noise varying in the time domain, i.e. the pitch of the noise 
varies with time. A pure sinusoid completing a cycle 1000 times a second is a 
lKHz tone. In the frequency domain, this is a single value at 1000. To filter 
it out, multiply it by a low-pass filter that only passes frequencies below 900 
cycles per second. Picture the low-pass filter as an array with the value of 
one in all places from zero through 900 and the value zero in all places above 
900. 

Multiplication in the frequency domain is a simple idea, however, there 
is one problem. People hear sound in the time domain. The signal, however, 
must be transformed to the frequency domain before multiplication. Fourier 
transforms do this tranformation [7. 1] . Fourier transforms require substantial 
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Figure 7.3: Low-Pass Filter Convolution Masks 



computations, and in some cases is not worth the effort. 

Multiplication in the frequency domain corresponds to convolution in the 
time and the spatial domain (such as in Chapter 5). Using a small convolution 
mask, such as 3x3, and convolving this mask over an image is much easier 
and faster than performing Fourier transforms and multiplication. 



7.5 Low-Pass Filtering 

Low-pass filtering smoothes out sharp transitions in gray levels and removes 
noise. Figure 7.3 shows four low-pass filter convolution masks. Convolving 
these filters with a constant gray level area of an image will not change the 
image. Notice how the second convolution mask replaces the center pixel 
of the input image with the average gray level of the area. The other three 
masks have the same general form — a “peak” in the center with small values 
at the corners. 

The next four figures show numerical examples of how a low-pass fil- 
ter affects an image. Figure 7.4 shows an image segment with low spatial 
frequencies. The image segment changes gray level once, but with a sharp 
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Figure 7.4: An Image Segment with Low Spatial Frequencies 
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Figure 7.5: An Image Segment with High Spatial Frequencies 

transition. Figure 7.5 shows an image segment with higher spatial frequen- 
cies. It changes gray level every row of pixels, with every change a sharp 
transition. 

Figure 7.6 shows the result of convolving the first 3x3 low-pass filter 
mask of Figure 7.3 with the image segment given in Figure 7.4. The high 
and low gray-level rows remain, but the transition differs. The low-pass filter 
smoothed the transition from one row to three rows of pixels. In a photograph 
this would make the edge look fuzzy or blurred. 

Figure 7.7 shows the result of convolving the first 3x3 low-pass filter 
mask of Figure 7.3 with the image segment given in Figure 7.5. The image 
in Figure 7.7 still has transitions or edges from row to row. The low-pass 
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Figure 7.6: Low-Pass Filtering of Figure 7.4 

filter, however, reduced the magnitude of these transitions. In a photograph 
they would appear dimmer or washed out when compared with the original 
in Figure 7.5. 



7.6 Median Filters 

A special type of low-pass filter is the median filter [7.2], The median filter 
takes an area of an image (3x3, 5x5, 7x7, etc.), looks at all the pixel values in 
that area, and replaces the center pixel with the median value. The median 
filter does not require convolution. It does, however, require sorting the 
values in the image area to find the median value. 

There are two noteworthy features of the median filter. First, it is easy 
to change the size of the median filter. (The images later will show the effect 
of using a different size.) Implementing the different size is a simple matter 
of for loops in the code. 

Second, median filters remove noise in images, but change noise-free parts 
of images minimally. Consider the influence of a 3x3 median filter on the 
image segments in Figures 7.4 and 7.5. The image in Figure 7.4 would not 
change. Centering the 3x3 filter on the last row of 150s yields a median value 
of 150. Centering it the first row of Is yields a median value of one. The 
image in Figure 7.5 would change, but the change would not be obvious. The 
filter would replace the rows of 150s with rows of Is and would replace the 
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Figure 7.7: Low-Pass Filtering of Figure 7.5 



rows of Is with rows of 150s. 



7.7 Effects of Low-Pass Filtering 

Figure 7.8 is an aerial image spotted with noise. There are two streets running 
vertically with rows of houses on either sides of the streets. The white dots all 
over the trees are noise. The noise came from a poor photograph compounded 
by less than perfect scanning. Figures 7.9, 7.10, 7.11, and 7.12 show the result 
of applying the low-pass filters to the image in Figure 7.8. The four results 
are all similar. The filters removed the snow from Figure 7.8 and retained the 
appearance of the houses and streets. My personal favorite is Figure 7.12, 
but you should apply all four masks to your image and decide for yourself. 
The masks are different and produce different results sometimes noticeable, 
sometimes not. 

Figure 7.13 shows the result of applying a 3x3 median filter to Figure 
7.8. The filter removed the snow but left the areas of houses and streets 
unchanged. 

Figures 7.15, 7.16, and 7.17 show the result of applying three different 
median Liters (3x3, 5x5, and 7x7) to the house image in Figure 7.14. In 
the result of the 3x3 filter (Figure 7.15), the trees start to appear fuzzy 
and the lines between the bricks disappear. In the result of the 5x5 Liter 
(Figure 7.16), the trees are blotches, the bricks only textures, and the other 
details are disappearing. Finally, the 7x7 Liter (Figure 7.17) eliminates all 
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Figure 7.10: Result of Low-Pass Filter Mask #9 




Figure 7.11: Result of Low-Pass Filter Mask #10 




84 


CHAPTER 7. SPAT. 






0 




Jr+ ’ ii 


j* ■' 












*r!l 




7 . 7 . EFFECTS OF LOW-PASS FILTERING 



85 



detail. The “best” filter for this image is probably the 3x3 filter. Images 
with different size details and noise would require different size filters. 




Figure 7.14: House Image 



Note how in Figure 7.17 only the large objects are recognizable, such as 
windows, roof, window frames, door frames, and door. This is an excellent 
starting point for a part of image processing called segmentation. In segmen- 
tation, the computer attempts to find the major objects in the image and 
separate or segment them from the other objects. Segmentation would be 
difficult with Figure 7.14 because it contains too many small and insignifi- 
cant objects, such as bricks and leaves. Figure 7.17 is so fuzzy that only the 
large objects are recognizable. Later chapters will discuss segmentation. 

Although the size and results of median filters are easy to change, the 
process can be slow. The 3x3 median filter and the 3x3 convolution filters 
work equally fast. However, when moving to 5x5 and beyond, the median 
filter slows down noticeably because of the continuous sorting and picking of 
the median value. 
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Figure 7.15: Result of 3x3 Median Filter 




Figure 7.16: Result of 5x5 Median Filter 
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Figure 7.17: Result of 7x7 Median Filter 

7.8 Implementing Low-Pass Filtering 

Listing 7.1 shows the source code for the low-pass and median filters. The 
first section of code declares the four low-pass filter masks (then three high- 
pass filter masks which we’ll discuss later). 

The major filtering function is filter dmage. This implements the low-pass 
(and high-pass) convolution filters, filter dmage resembles the convolution- 
based, edge-detection functions in Chapters 5 and 6. 

The d=type statements set up the denominator for later use. The low- 
pass filter masks should have fractions in front of them (1/6, 1/9, 1/10, and 
1/16). Using the fractions in convolution masks would require floating-point 
arrays and operations. It is much simpler and quicker to use shorts and then 
divide the final result. 

filter dmage reads an array from the input image and goes into the for 
loops to perform the convolution. These loops move through the image array 
and do the 3x3 multiplication and summing. The sum is divided by the 
denominator mentioned above and set to the max or min value in case of 
overrun, filter dmage finishes by calling fix .edges to fill the edges of the 
output and writes the array to the output file. 

The next function in Listing 7.1, median filter, implements the variable- 
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size median filter. The key to this filter is finding the median pixel value in 
the nxn area being filtered. This routine does this by creating an array to 
hold the pixel values, sorting the array, and taking the middle number in the 
sorted array. First, it allocates the elements array to hold the pixel values 
by calling malloc. 

medianJilter goes into a series of loops which cover the entire image 
array. As it moves through the image, it copies an nxn area of pixel values 
surrounding each point to the elements array. The output image array is set 
to the median of the elements array. medianJilter calls fix edges to fill out 
the edges of the output and writes it to the output image file. 

The next function in Listing 7.1 is median of. This calls fsort elements to 
sort the elements array and returns the middle element of the sorted array. 
The fsort .elements function (next in Listing 7.1) is a bubble sort. It calls the 
fswap function (also in Listing 7.1) to swap elements. 



7.9 High-Pass Filtering 

High-pass filters amplify or enhance a sharp transition (an edge) in an image. 
Figure 7.18 shows three 3x3 high-pass filter convolution masks. Each will 
leave a homogenous area of an image unchanged. They all have the same 
form — a peak in the center, negative values above, below, and to the sides of 
the center, and corner values near zero. The three masks, however, produce 
different amplifications to different high spatial frequencies. 



7.10 Effects of High-Pass Filtering 

Figures 7.19 and 7.20 show the results of applying the first high-pass filter 
mask to Figures 7.4 and 7.5. In Figure 7.19 (the result of filtering Figure 
7.4) the high-pass filter amplified the edge. The transition from 150 to one is 
now from 255 to zero. In a photograph this would appear as adjacent black 
and white lines. In Figure 7.20 (the result of filtering Figure 7.5) the high- 
pass filter amplified the many edges, making the transitions all from 255 to 
zero. This would appear as alternating black and white lines in a photograph. 
Notice the differences between Figures 7.19 and 7.20 and Figures 7.5 and 7.6. 
The low-pass filter (Figures 7.5 and 7.6) smoothed the edges. In contrast, 
the high-pass filter enhanced them. 
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Figure 7.18: High-Pass Filter Convolution Masks 
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Figure 7.19: Result of High-Pass Filter on Figure 7.4 
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Figure 7.20: Result of High-Pass Filter on Figure 7.5 



Figures 7.21, 7.22, and 7.23 show what the high-pass filters will do to the 
house image of Fiure 7.14. Figure 7.21 shows the result of the first high-pass 
filter convolution mask. Look closely at the differences between Figures 7.14 
and 7.21. In Figure 7.21 you can see leaves, shingles on the roof, the texture 
of the screen door, and far greater contrast in the bricks and mortar. This 
high-pass filter has enhanced the details of the image. 

Figure 7.22 shows the result of the second high-pass filter convolution 
mask. This image is almost black and white (few gray levels between). The 
details (edges) were enhanced, but probably too much. Figure 7.23 shows 
the result of the third high-pass filter convolution mask. This image contains 
many tiny highlights in the leaves of the trees and noise or snow in the 
remaining parts. 

These images show the differences in the filtering properties of the three 
masks. The third filter mask has little affect on low spatial frequencies and 
a great affect on areas with relatively high spatial frequencies. So it does not 
enhance the bricks but does enhance the tiny leaves in the trees. The second 
filter has a high gain on most high frequencies (edges). So it produced an 
almost black and white image — all the edges were amplified greatly. The 
first filter amplifies all edges, but not with a high gain. The filter enhanced, 
but did not saturate, the edges. Each filter has its own unique properties 
and you should use them to their advantage. Try all three on an image and 
choose the enhancement you prefer. 
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Figure 7.23: Result of High- Pass Filter Mask #3 

7.11 Implementing High-Pass Filtering 

The high-pass filters use the same function, filter_image, as the low-pass 
filters, but the user send filter _image it a different filter mask. Listing 7.1, 
contains the function setup -filters. This copies a filter mask declared at the 
top of Listing 7. 1 into a 3x3 filter array. 

Listing 7.2 shows the main routine of the mfilter program. This is similar 
to the medge program described in chapter 6. The mfilter program interprets 
the command line input to call one of several types of image filters. It contains 
the usual calls to create an output image, allocate image arrays, read input, 
and finally write the result to the output image hie. 



7.12 Conclusion 

This chapter has discussed spatial frequencies in images and how to filter 
these frequencies. It demonstrated several types of low-pass and high-pass 
filters on various images. These are not the only filter masks available. Those 
familiar with Fourier transforms could derive other masks and also experi- 
ment with band-pass and band-stop filters. 
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Chapter 8 

Image Operations 



8.1 Introduction 

This chapter introduces several basic image operations that allow you to 
have fun with images. These operations are adding and subtracting images 
and cutting and pasting parts of images. The chapter ends with two utility 
programs. The first creates blank images, and the second inverts the pixel 
values in images. As the images will show, these allow editing images by 
piecing them together. 



8.2 Addition and Subtraction 

Figure 8.1 illustrates the first operations: image addition and subtraction. 
Image addition adds each pixel in one image to each pixel in another and 
places the result in a third image. If the sum is greater than the maximum 
pixel value, it sets the sum to the maximum value. Image subtraction is the 
same. If the difference is less than 0, it sets it to zero. 

Image addition and subtraction can place objects into and remove objects 
from images. One application subtracts two images in a sequence to see what 
has changed. For example, take an aerial photograph of a factory two days 
in a row, subtract the second from the first, and detect what has moved from 
day to day. 

Image subtraction can also remove features. Figure 8.2 shows a house. 
Figure 8.3 shows the output of an edge detector applied to Figure 8.2. Figure 
8.4 shows the result of subtracting the edges from the original image. Note 
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Figure 8.1: Addition and Subtraction of Images 



how the edges in Figure 8.4 are whitened out or removed. 




Figure 8.2: A House Image 

Listing 8.1 shows the functions that implement image addition and sub- 
traction. The add_image_array function adds two image arrays. This func- 
tion shows the simplicity of image operators using the structure of image 
I/O routines presented in chapter 1. The operators don’t do any image I/O 
— they simply operator on images. The code adds the two image arrays 
and puts the result in the output image array. If the sum of two pixels is 
greater than the maximum pixel value, you set it to the maximum value. 
The subtract dmage _array function is the same as add image array except 
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Figure 8.5: Cutting and Pasting 



it subtracts the pixels in one image array from the corresponding pixels in 
another image array. 

These simple functions may seem insignificant. They only add and sub- 
tract, but did you ever do anything useful by adding and subtracting num- 
bers? Think of the possibilities and experiment. 

Listing 8.2 shows the mainas program. It allows a person to call the 
add_image_array and subtract -image .array routines from the command line. 
It has the same form as other main routines. Note how it uses the 
are_not_same_size routine to ensure the two images have the same size. 



8.3 Rotation and Flipping 

The first edition of this book presented software that could rotate and flip 
images. This edition covers these topics in chapter 13. The methods used 
for rotation in this edition are far superior to those given in the first edition. 



8.4 Cut and Paste 

The next operations are image cut and paste. They allow cutting rectangular 
areas from one image and pasting them into another. Figure 8.5 shows a cut 
and paste example where a section of image B was pasted into image A by 
reading from one image and writing into another one. Figure 8.6 shows the 
result of pasting parts of the image in Figure 8.3 into the image in Figure 
8.2. This demonstrates a method of judging the affect of image processing 
operators by pasting the processing results back into the original image. 

Listing 8.3 shows the function pastedmage .piece. This takes in two image 
arrays and line and element parameters that describe where in the input array 
to cut a rectangle and where in the output array to paste it. The code that 
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Figure 8.6: Section of Figure 8.3 Cut and Pasted Into Figure 8.2 



performs the pasting comprises simple loops that copy numbers from one 
array to another. 

Much of the cut and paste work is done is the main routine of the 
maincp program shown in listing 8.4. The main program checks the com- 
mand line parameters, allocates arrays, and reads image arrays. It then 
calls check_cut_and_pastedimits to ensure that the input rectangle exists and 
that it will fit in the output image. Listing 8.3 shows the source code for 
check_cut_and_pastedimits. 



8.5 Image Scaling 

The first edition of this book presented software that could scale images. 
This edition covers this topic in chapter 13. The method used for scaling in 
this edition is far superior to that given in the first edition. 



8.6 Blank Images 

A handy utility program is one that creates a blank image. A blank image is 
useful as a bulletin board to paste other images together. Figure 8.7 shows a 
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composite made of two images pasted onto a blank image. The two images 
are of a boy with one being the negative of the other (more on this in the 
next section). 




Figure 8.7: Two Images Pasted Onto a Blank Image 



Listing 8.5 shows the create program that created the blank image. This 
interprets the command line, sets up the image header, and calls with cre- 
ate_allocate_tiff Tile or create_allocate_bmp_file. Those routines fill the blank 
image with zeros. 



8.7 Inverting Images 

Another handy utility program inverts the pixels in an image. Some images 
appear as negatives for certain image viewers. The boy in the upper part of 
Figure 8.7 is the negative of the boy in the lower part. The invert program 
created on from the other. The invert program reads the input image, inverts 
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the pixels by subtracting them from the number of gray shades (0 becomes 
255, 1 becomes 254, etc.), and writes the output image to disk. I don’t use 
invert often, but it is essential. 



8.8 Conclusion 

This chapter described several image operations that provide the ability to 
edit images by adding and subtracting and cutting and pasting. It described 
two utility programs that create blank images and invert images. These 
operations are fun because they allow you to place original images and pro- 
cessing results together in combinations and display them all at once. Enjoy 
and experiment. These are low-level tools that you can combine in an endless 
variety of ways. 
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Chapter 9 

Histogram-Based Segmentation 



This chapter describes simple image segmentation based on histograms and 
image thresholding. Image segmentation is the process of dividing an image 
into regions or objects. It is the first step in the task of image analysis. Image 
processing displays images and alters them to make them look “better,” while 
image analysis tries to discover what is in the image. 

The basic idea of image segmentation is to group individual pixels (dots 
in the image) together into regions if they are similar. Similar can mean they 
are the same intensity (shade of gray), form a texture, line up in a row, create 
a shape, etc. There are many techniques available for image segmentation, 
and they vary in complexity, power, and area of application. 



9.1 Histogram-Based Segmentation 

Histogram-based image segmentation is one of the most simple and most 
often used segmentation techniques. It uses the histogram to select the gray 
levels for grouping pixels into regions. In a simple image there are two 
entities: the background and the object. The background is generally one 
gray level and occupies most of the image. Therefore, its gray level is a large 
peak in the histogram. The object or subject of the image is another gray 
level, and its gray level is another, smaller peak in the histogram. 

Figure 9.1 shows an image example and Figure 9.2 shows its histogram. 
The tall peak at gray level 2 indicates it is the primary gray level for the 
background of the image. The secondary peak in the histogram at gray level 
8 indicates it is the primary gray level for the object in the image. Figure 
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Figure 9.1: An Image Example 

9.3 shows the image of Figure 9.1 with all the pixels except the 8s blanked 
out. The object is a happy face. 

This illustrates histogram-based image segmentation. The histogram will 
show the gray levels of the background and the object. The largest peak 
represents the background and the next largest peak the object. We choose 
a threshold point in the valley between the two peaks and threshold the 
image. Thresholding takes any pixel whose value is on the object side of the 
point and sets it to one; it sets all others to zero. The histogram peaks and 
the valleys between them are the keys. 

The idea of histogram-based segmentation is simple, but there can be 
problems. Where is the threshold point for the image of Figure 9.1? Choosing 
the point mid- way between the two peaks (threshold point = 5), produces 
the image of Figure 9.4. This is not the happy face object desired. Choosing 
the valley floor values of 4 or 5 as the threshold point, also produces a poor 
result. The best threshold point would be 7, but how could anyone know 
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Figure 9.2: A Histogram of the Image of Figure 9.1 
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Figure 9.3: The Image in Figure 9.1 with All the Pixels Except the 8s Blanked 
Out 
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Figure 9.4: Figure 9.1 with a Threshold Point of 5 
that without using trial and error? 

This example is difficult because there are only ten gray levels and the 
object (happy face) is small. In practice, the techniques discussed below will 
perform adequately, but there will be problems. Automatic techniques will 
fail. 



9.2 Histogram Preprocessing 

Histogram-based segmentation depends on the histogram of the image. There- 
fore, the image and its histogram may need preprocessing before analyzing 
them. The first step is histogram equalization, explained in Chapter 4. His- 
togram equalization attempts to alter an image so its histogram is flat and 
spreads out over the entire range of gray levels. The result is an image with 
better contrast. 
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Figure 9.5 shows an aerial image of several house trailers with its his- 
togram. The contrast is poor and it would be very difficult to find objects 
based on its histogram. Figure 9.6 shows the result of performing histogram 
equalization. The contrast is much better and the histogram is spread out 
over the entire range of gray levels. Figure 9.7 shows the result of performing 
high-pass filtering on the image of Figure 9.6, explained in Chapter 7. It 
is easy to see the house trailers, sidewalks, trees, bushes, gravel roads, and 
parking lots. 




Figure 9.5: Aerial Image with Poor Contrast 

The next preprocessing step is histogram smoothing. When examining 
a histogram, look at the peaks and valleys. Too many tall, thin peaks and 
deep valleys will cause problems. Smoothing the histogram removes these 
spikes and fills in empty canyons while retaining the same basic shape of the 
histogram. 

Figure 9.8 shows the result of smoothing the histogram given in Figure 
9.2. You can still see the peaks corresponding to the object and background, 




108 



CHAPTER 9. HISTOGRAM-BASED SEGMENTATION 




Figure 9.6: Result of Histogram Equalization on Figure 9.5 
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Figure 9.7: Result of High-Pass Filtering on Figure 9.6 
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but the peaks are shorter and the valleys are filled. 
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Figure 9.8: The Result of Smoothing the Histogram Given in Figure 9.2 

Smoothing a histogram is an easy operation. It replaces each point with 
the average of it and its two neighbors. Listing 9.1 shows the smooth Jiistogram 
function that performs this operation. 



9.3 Thresholding and Region Growing 

There are two more topics common to all the methods of image segmenta- 
tion: image thresholding and region growing. Image thresholding sets the 
pixels in the image to one or zero. Listing 9.2 shows all the subroutines 
used in this chapter’s segmentation techniques. It begins with the routine 
threshold image array that accomplishes this task. 

The difficult task is region growing. Figure 9.9 shows the result of thresh- 
olding Figure 9.1 correctly. The “object” in Figure 9.9 is a happy face. It 
comprises three different regions (two eyes and the smile). Region growing 
takes this image, groups the pixels in each separate region, and gives them 
unique labels. Figure 9.10 shows the result of region growing performed on 
Figure 9.9. Region growing grouped and labeled one eye as region 1, the 
other eye as region 2, and the smile as region 3. 

Figure 9.11 shows the algorithm for region growing. It begins with an 
image array g comprising zeros and pixels set to a value. The algorithm loops 
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Figure 9.9: The Result of Correctly Thresholding Figure 9.1 
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Figure 9.10: The Result of Region Growing Performed on Figure 9.9 
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through the image array looking for a g(i,j) == value. When it finds such a 
pixel, it calls the label and check neighbor routine, label and check neighbor 
sets the pixel to g_label (the region label) and examines the pixel’s eight 
neighbors. If any of the neighbors equal value, they are pushed onto a stack. 
When control returns to the main algorithm, each pixel on the stack is popped 
and sent to label_and_check_neighbor. All the points on the stack equaled 
value, so set them and check their neighbors. After setting all the pixels in 
the first region, increment gdabel and begin looking for the next region. 

Listing 9.2 next shows the functions that implement region growing with 
grow being the primary routine, grow runs through the region-growing algo- 
rithm and calls label_and_check_neighbor (shown next in Listing 9.2). The 
grow and label_and_check_neighbor functions follow the region- growing al- 
gorithm step for step. 



9.4 Histogram-Based Techniques 

The following pages present four segmentation techniques: manual technique, 
histogram peak technique, histogram valley technique, and adaptive tech- 
nique. 

9.4.1 Manual Technique 

In the manual technique the user inspects an image and its histogram man- 
ually. Trial and error comes into play and the result is as good as you want 
it to be. 

Figure 9.12 is the input for all the segmentation examples. Figures 9.13, 
9.14, and 9.15 show the result of segmentation using three different thresh- 
olds. The result in Figure 9.14 used a high of 255 and a low of 125. The 
segmentation included the white gravel roads as well as the house trailers 
and sidewalks. The result in Figure 9.14 used a high of 255 and a low of 
175. The gravel roads begin to disappear, but the house trailers and side- 
walks remain. Figure 9.15 shows the result using a high of 255 and a low of 
225. This segmentation only finds the four dominant house trailers. Which 
answer is correct? That depends on what you wanted to find. 

Note that all image segmentations will appear rough. It is possible to 
perform additional processing to make the result more pleasing to the eye 
(see chapter 11 for erosion and dilation techniques), but that is not the 
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1 . Given an image g with m rows and n columns 

g(i,j) for i=l,m j=l,n 
g(i,j) = value for object 
= 0 for background 

2. set g_label=2 this is the label value 

3. for (i=0; i<m; i++) 

scan ith row 

for (j=0; j<n; j++) 

check jth element 
stack_empty = true 
if g(i,j) == value 

label_and_check_neighbor (g(i , j ) , g_label) 
while stack_empty = false do 

pop element (i,j) off the stack 
label_and_check_neighbor (g ( i , j ) , g_label) 
end while 

g_label = g_label + 1 
end of checking jth element 
end of scanning ith row 

4 . The End 



procedure label_and_check_neighbor (g(r , e) , g_label) 
g(r,e) = g.label 
for (R=r-1 ; r<=r+l; R++) 

for (E=e-1; e<=e+l; e++) 

if g(R,E) == value then 

push (R,E) onto the stack 
stack_empty = false 

end if 

end loop over E 
end loop over R 

end procedure label_and_check_neighbor 



Figure 9.11: Pseudocode for Region Growing 
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Figure 9.14: Threshold of Figure 9.12 with High=255 and Low=175 




Figure 9.15: Threshold of Figure 9.12 with High=255 and Low=225 
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purpose of segmentation. The purpose is to break the image into pieces 
so later computer processing can interpret their meaning. The output is 
for computer not human consumption. Also note how difficult it is for the 
computer, even with manual aid, to find objects that are trivial for humans 
to see. Anyone could trace over the input image and outline the objects 
better than the segmentation process. 

Listing 9.2 next shows the code that implements manual segmentation. 
The function manual_threshold_segmentation has the same form as the other 
subroutines. 

manual_threshold_segmentation has the usual inputs as well as the high 
and low threshold values and the value and segment parameters. The value 
parameter specifies the value at which to set a pixel if it falls between the 
high and low thresholds, value is usually one since those pixels outside the 
high-low range are set to zero. The segment parameter specifies whether or 
not to grow regions after thresholding. Sometimes you only want to threshold 
an image and not grow regions. The two operations are identical except for 
the last step. If segment == 1, manual_threshold_segmentation calls the 
region-growing routines. 

Manual segmentation is good for fine tuning and understanding the op- 
eration. Its trial-and-error nature, however, makes it time consuming and 
impractical for many applications. We need techniques that examine the 
histogram and select threshold values automatically. 

9.4.2 Histogram Peak Technique 

The first technique to examine the histogram and select threshold values 
automatically uses the peaks of the histogram. This technique finds the two 
peaks in the histogram corresponding to the background and object of the 
image. It sets the threshold halfway between the two peaks. Look back at 
the smoothed histogram in Figure 9.8. The background peak is at two and 
the object peak is at seven. The midpoint is four, so the low threshold value 
is four and the high is nine. 

The peak technique is straightforward except for two items. In the his- 
togram in Figure 9.8, you’ll note the peak at seven is the fourth highest peak. 
The peaks at one and three are higher, but they are part of the background 
mountain of the histogram and do not correspond to the object. Searching 
the histogram for peaks requires peak spacing to ensure the highest peaks 
are separated. If the peak technique does not, then it would choose two as 
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Figure 9.16: Result of Incorrect Peak Separation 

the background peak and one as the object peak. Figure 9.16 shows the 
disastrous effect of this. 

The second item to watch carefully is determining which peak corresponds 
to the background and which corresponds to the object. Suppose an image 
had the histogram shown in Figure 9.17. Which peak corresponds to the 
background? The peak for gray level eight is the highest, but it corresponds 
to the object not the background. The reason is the mountain surrounding 
the peak at gray level two has a much greater area than that next to gray 
level eight. Therefore, gray levels zero through six occupy the vast majority 
of the image, and they are the background. 

Listing 9.2 next shows the source code to implement the peak technique. 
peak_threshold_segmentation is the primary function. Next, it calls new func- 
tions to find the histogram peaks and determine the high and low threshold 
values. Finally, it thresholds the image, performs region growing if desired, 
and writes the result image to the output hie. 
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Figure 9.17: A Histogram in which the Highest Peak Does Not Correspond 
to the Background 

The functions hnd.peaks and insert_into_peaks in Listing 9.2 analyze the 
histogram to find the peaks for the object and background. These functions 
build a list of histogram peaks. There are several ways to do this. I used 
an array of values. hnd_peaks loops through the histogram and calls in- 
sert dnto_peaks, which puts the histogram values in the proper places in the 
array. find_peaks ends by looking at the spacing between the largest peaks 
to ensure we do not have a disaster such as shown in Figure 9.16. 

The function peaks JiighJow takes the two peaks from find peaks and cal- 
culates the high-and low-threshold values for segmentation. peaksJiighJow 
examines the mountains next to the peaks as illustrated in Figure 9.17. It 
then finds the midpoint between the peaks and sets the high and low thresh- 
old values. 

Figure 9.18 shows the result of applying the peak technique to the image 
of Figure 9.12. The peak technique found the two peaks at 255 and 77. The 
midpoint is 166, so the high threshold is 255 and the low threshold is 166. 
This is a reasonably good segmentation of Figure 9.12. 

9.4.3 Histogram Valley Technique 

The second automatic technique uses the peaks of the histogram, but con- 
centrates on the valleys between them. Instead of setting the midpoint arbi- 
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trarily halfway between the two peaks, the valley technique searches between 
the two peaks to find the lowest valley. 

Look back at the histogram of Figure 9.17. The peaks are at gray levels 
two and eight and the peaks technique would set the midpoint at five. In 
contrast, the valley technique searches from two through eight to find the 
lowest valley. In this case, the “valley point” is at gray level seven. 

Listing 9.2 shows the code that implements the valley technique. The pri- 
mary function is valley -threshold-segmentation. It calculates and smoothes 
the histogram and finds the peaks as peak threshold segmentation did. It 
finds the valley point via the functions valley Jiigh-low, find_valley .point , and 
insert_into_deltas. find_valley_point starts at one peak and goes to the next, 
inserting the histogram values into a deltas array via the insert_into_deltas 
function. This uses an array to create a list of deltas in the same manner 
as insert into peaks did. Once it has valley point, valley JiighJow checks 
the mountains around the peaks to ensure it associates the peaks with the 
background and object correctly. 

Figure 9.19 shows the result of applying the valley technique to the image 
in Figure 9.12. It found the peaks at 77 and 255 and went from 77 up to 
255 looking for the lowest valley. It pinpointed the lowest valley at gray level 
241. 
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Figure 9.19: Threshold of Figure 9.12 Using Valley Technique (High=255 
and Low=241) 

9.4.4 Adaptive Histogram Technique 

The final technique uses the peaks of the histogram in a first pass and adapts 
itself to the objects found in the image in a second pass [9.1]. In the first 
pass, the adaptive technique calculates the histogram for the entire image. 
It smoothes the histogram and uses the peak technique to find the high and 
low threshold values. 

In the second pass, the technique segments using the high and low values 
found during the first pass. Then, it calculates the mean value for all the 
pixels segmented into background and object. It uses these means as new 
peaks and calculates new high and low threshold values. Now, it segments 
that area — again using the new values. 

Listing 9.2 next shows the code that implements the adaptive technique 
with adaptive threshold segmentation being the primary function. It is very 
similar to the peak_threshold_segmentation function in that it uses all that 
code for its first pass. The second pass starts by calling 
threshold _and -find .means. This function thresholds the image array into 
background and object and calculates the mean pixel value for each. The 
second pass continues by using peaks JiighJow to find new threshold values 
based on the background and object means. Finally, threshold the image 
using these new threshold values. 

Figure 9.20 shows the result of applying the adaptive technique to the 
image of Figure 9.12. The first pass found the high-and low-threshold values 
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to be 255 and 166. The second pass thresholded the image array and found 
the background mean to be 94 and the object mean to be 205. The new 
threshold values were 255 and 149. 




Figure 9.20: Threshold of Figure 9.12 Using Adaptive Technique (High=255 
and Low=149) 



9.5 An Application Program 

Listing 9.3 shows the source code for the mainseg program. It has the same 
form as the other application programs in this text. It interprets the com- 
mand line parameters, reads the input hie, selects the desired segmentation 
method, and writes the result. 



9.6 Conclusions 

This chapter introduced image segmentation. This is the first step in locating 
and labeling the contents of an image. The techniques discussed work on 
simple images with good contrast and gray level separation between the 
object and background. We will need additional techniques to attack more 
complex images. 
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Chapter 10 

Segmentation via Edges &; 

Gray Shades 

10.1 Introduction 

This chapter explains image segmentation using edges and gray shades. The 
previous chapter discussed image segmentation using histograms. That basic 
technique examined the histogram of an image, transformed the image into 
a 1-0 image, and “grew” regions. The results were acceptable given the 
simplicity of the approach. 

There are more powerful segmentation techniques that use the edges in 
an image, grow regions using the gray shades in an image, and use both the 
edges and gray shades. These techniques work well over a range of images 
because edges and gray shades are important clues to objects in a scene. 



10.2 Segmentation Using Edges & Gray Shades 

Figure 10.1 shows the result of using edges to segment an image. The left 
side shows the output of an edge detector. The right side is the result of 
grouping the pixels “inside” the edges as objects — a triangle and rectangle. 
This idea is simple. Detect the edges and group the pixels as objects. 

Figure 10.2 illustrates growing objects using the gray shades in an image. 
Pixels are grouped with a neighboring pixel if their gray shades are close 
enough. Two pixels are replaced with their average and examination shifts 
to the neighbors of this two-pixel object. If the gray shades of the neighbors 
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Figure 10.1: Using Edges to Segment an Image 
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Figure 10.2: Growing Objects Using Gray Shades 



are close enough, they become part of the object and their values adjust the 
average gray shade of the object. The left side shows the input, and the 
right side shows the result of growing objects in this manner. The Is are the 
background object produced by grouping the Is, 2s, and 3s. The triangle of 
2s is a grouping of the 7s and 8s, and the rectangle of 3s is the 8s and 9s. 

Figure 10.3 combines the two techniques. The left side shows a gray shade 
image with the output of an edge detector (*s) superimposed. The right side 
shows the result of growing regions using the gray shades while ignoring the 
detected edges (*s). The result is the three objects produced in Figure 10.2 
separated by the edges. 

These three simple techniques work well in ideal situations. Most images, 
however, are not ideal. Real images and image processing routines introduce 
problems. 
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Figure 10.3: Growing Objects Using Gray Shades and Edges 
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10.3 Problems 

There are three potential problems using these segmentation techniques: (1) 
the input image can have too many edges and objects, (2) the edge detectors 
may not be good enough, and (3) unwanted items ruin region growing. 

The input image can be too complicated and have small, unwanted ob- 
jects. Figure 10.4 shows an aerial image of house trailers, roads, lawns, trees, 
and a tennis court. The white house trailers are obvious and easy to detect. 
Other objects (tennis court) have marks or spots that fool the edge detectors 
and region growing routines. Figure 10.5 shows a house, and Figure 10.6 
shows its edges. Segmentation should detect the roof, windows, and door. 
The bricks, leaves, and shutter slats are real, but small, so unwanted. 




Figure 10.4: Aerial Image of House Trailers 



High quality edge detection is essential to use these techniques. Figure 
10.8 demonstrates how a small edge detector error leads to a big segmen- 
tation error. On the left side of the figure, I poked a small hole in the left 
edge of the rectangle. The right side shows the terrible segmentation result. 
Edge detectors do not produce these 1-0 images without thresholding them 
as explained in Chapter 5. Figure 10.8 shows the result of edge detection on 
Figure 10.4. Thresholding the strong (bright) and weak (faint) edges pro- 
duces a clean 1-0 image. This requires a consistent and automatic method 
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Figure 10.5: House Image 




Figure 10.6: Edge Detector Output from Figure 10.5 
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Figure 10.7: A Small Edge Detector Error Leads to a Big Segmentation Error 



to find the threshold point. Detected edges can be too thin and too thick. 
A surplus of stray, thin edges misleads segmentation, and heavy, extra-thick 
edges ruin objects. Figure 10.9 shows how the triple thick edges on the left 
side produce the distorted objects on the right side. 



The region-growing algorithm in Chapter 6 must limit the size of objects 
and exclude unwanted pixels. The house in Figure 10.5 contains objects of 
widely varying size. “Unwanted” objects may be the bricks or they may be 
the large objects. There are different situations with different desired results. 
The left side of Figure 10.10 is a repeat of Figure 10.1 while the right side 
shows what happens when the region grower mistakes the edges for objects. 
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Figure 10.8: Edge Detector Output from Figure 10.4 



10.4 Solutions 

Some solutions to the object detection problems include preprocessing, better 
edge detection, and better region growing. 



10.4.1 Preprocessing 

Preprocessing involves smoothing the input image to remove noise, marks, 
and unwanted detail. The median filter from Chapter 7, one form of smooth- 
ing, sorts the pixels in an nxn area (3x3, 5x5, etc.), and replaces the center 
pixel with the median value. High- and low-pixel filters, variations of the 
median filter, sort the pixels in an nxn area and replace the center pixel with 
either the highest or lowest pixel value. 

Figure 10.11 illustrates the median, high-pixel, and low-pixel filters. The 
left side shows the input — the image section. The right side shows the 
output for each filter processing a 3x3 area. The median filter removes the 
spikes of the larger numbers. The high-pixel filter output has many high 
values because the input has a large number in most of its 3x3 areas. The 
low-pixel filter output is all Is because there is a 1 in every 3x3 area of the 
input. 
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Figure 10.9: Triple- Thick Edges Distort Objects 
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Figure 10.10: Result of Mistaking Edges for Objects 
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Figure 10.11: Output of Median, High-Pixel, and Low-Pixel Filters 
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Figures 10.12 and 10.13 show how the low-pixel filter reduces the clutter 
in the edge detector output. Figure 10.12 is the result of the low-pixel filter 
applied to Figure 10.5. The dark window shutters are larger, and the mortar 
lines around the bricks are gone. Figure 10.13 is the output of the edge 
detector applied to Figure 10.12. Compare this to Figure 10.6. The edges 
around the small objects are gone. 




Figure 10.12: Low-Pixel Filtering Performed on Figure 10.5 

Listing 10.1 shows the high pixel and low pixel subroutines. They loop 
through the image arrays and place the pixels in the nxn area into the ele- 
ments array. They sorts the array, and place the highest or lowest pixel value 
into the output array. 

10.4.2 Improved Edge Detection 

Accurate edge detectors with automatic thresholding of edges and the ability 
to thin edges are needed for effective segmentation. 

Good edge detection requires a technique for thresholding the edge detec- 
tor output consistently and automatically. One technique sets the threshold 
point at a given percentage of pixels in the histogram. This calculates the 
histogram for the edge detector output and sums the histogram values be- 
ginning with zero. When this sum exceeds a given percent of the total, this 





10.4. SOLUTIONS 



137 




Figure 10.13: Edge Detector Output from Figure 10.12 



is the threshold value. This method produces consistent results without any 
manual intervention. A good percentage to use is 50 percent for most edge 
detectors and images. 

Figure 10.14 shows the thresholded edge detector output of Figure 10.4. 
That is, I processed Figure 10.4 with the edge detector (Figure 10.8 shows 
the result) and set the threshold at 70 percent. Listing 10.2 shows the 
hnd_cutoff_point subroutine that looks through a histogram to find the thresh- 
old point. It takes in the histogram and the desired percent and returns the 
threshold point. This is a simple accumulate-and-compare operation. 

The erosion operation [10.1] can solve the final problem with edge detec- 
tors, removing extra edges and thinning thick edges. Erosion looks at pixels 
turned on (edge detector outputs) and turns them off if they have enough 
neighbors that are turned off. Figures 10.15 and 10.16 illustrate erosion. In 
Figure 10.15, the left side shows edges (Is) around the triangle and rectangle 
and several stray edges. The right side shows the result of eroding or remov- 
ing any 1 that has seven 0 neighbors. In Figure 10.16, the left side shows 
very thick edges around the triangle and rectangle. The right side shows the 
result of eroding any 1 that has three 0 neighbors. The edges are thinner, 
and the objects inside the edges are more accurate. 

Listing 10.2 shows the erosion subroutine erode image array. The looping 
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Figure 10.14: Edge Detector Output from Figure 10.4 — Thresholded at 
70% 

structure examines every pixel in thedmage that equals value. It counts 
the number of neighboring 0 pixels and sets the outdmage to zero if this 
count exceeds the threshold parameter. The threshold parameter controls 
the erosion. Threshold was six in Figure 10.15 and two in Figure 10.16. 

Figure 10.17 shows the result of eroding the thick edges of Figure 10.13. 
Note how it thinned the thick edges and removed the stray edges in the 
house, lawn, and tree. The threshold parameter was three for this example. 



10.4.3 Improved Region Growing 

Accurate region growing is essential to implement the edge and gray shade 
segmentation techniques. Figure 10.18 shows the region-growing algorithm 
used in Chapter 9. This worked for binary images containing 0s and a value. 
If the algorithm found a pixel equal to value, it labeled that pixel and checked 
its neighbors to see if they also equaled value (step 3) . 

The region-growing algorithm needs improvements to work with any gray 
shades, limit the size of regions, and exclude pixels with special values (like 
edges). Figure 10.19 shows the new region-growing algorithm. The input 
image g contains gray shades and may contain special pixels equal to FOR- 
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Figure 10.15: Result of Eroding Stray Edges 
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Figure 10.16: Eroding Away Thick Edges 
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Figure 10.17: Result of Eroding the Edges in Figure 10.13 



GETJT. The output image array holds the result. There are three new 
parameters: diff, min.area, and max.area. diff specifies the allowable differ- 
ence in gray shade for two pixels to merge into the same object, min.area 
and max area specify the limits on the size of objects. 

The major differences in the algorithm begin at step 4. Instead of checking 
if g(i,j) == value, the algorithm performs these checks: 
g(i,j) cannot equal FORGETTT, 
output (i,j) must equal zero, and 
g(i,j) cannot differ from the target by more than diff. 

The first two are simple. The algorithm must exclude certain pixels, so 
set them to FORGETTT and ignore them. The output must not be part of 
an object, so it must be zero. 

A third test allows working with gray shade images. In step 3, cre- 
ate a target equal to the average gray shade of the pixels in an object. 
Group neighboring pixels whose values do not differ by more than the diff 
parameter. The is close routine at the bottom of Figure 10.19 tests for 
this condition. If the pixel g(i,j) is close enough to the target, call the 
pixeldabel_and_check_neighbor routine to add that pixel to the object and 
check its neighbors. The pixelJabel_and_check_neighbor routine updates the 
target or average gray shade of the object. 
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1 . Given an image g with m rows and n columns 

g(i,j) for i=l,m j=l,n 
g(i,j) = value for object 
= 0 for background 

2. set g_label=2 this is the label value 

3. for (i=0; i<m; i++) 

scan ith row 

for (j=0; j<n; j++) 

check jth element 
stack_empty = true 
if g(i,j) == value 

label_and_check_neighbor (g(i , j ) , g_label) 
while stack_empty = false do 

pop element (i,j) off the stack 
label_and_check_neighbor (g ( i , j ) , g_label) 
end while 

g_label = g_label + 1 
end of checking jth element 
end of scanning ith row 

4 . The End 



procedure label_and_check_neighbor (g(r , e) , g_label) 
g(r,e) = g.label 
for (R=r-1 ; r<=r+l; R++) 

for (E=e-1; e<=e+l; e++) 

if g(R,E) == value then 

push (R,E) onto the stack 
stack_empty = false 

end if 

end loop over E 
end loop over R 

end procedure label_and_check_neighbor 



Figure 10.18: The Region Growing Algorithm from Chapter 9 
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2 . 

3. 



4. 



5. 



6 . 



7 . 



Given: 

Image g with m rows and n columns 
g(i,j) for i=l,m j=l,n 
g(i,j) = gray shades 

= F0RGET_IT value is edges are overlayed (optional) 
Image output with m rows and n columns 
output(i,j) for i=l,m j=l,n 
output (i,j) = all zeros 

Parameter diff = allowable difference in gray shades 
Parameter min_area = minimum size of a region allowed 
Parameter max_area = maximum size of a region allowed 
set g_label=2 this is the label value 
for (i=0; i<m; i++) 
scan ith row 
for ( j =0 ; j<n; j++) 
check jth element 
stack_empty = true 

target = g(i,j) 

sum = target 

count = 0 

if g(i,j) ! = F0RGET_IT AND 

output (i,j) == 0 AND 

is_close(g(i, j) , target, diff) 
pixel_label_and_check_neighbor(g(i, j) , output, 
count, sum, target, diff) 

object_found = 1 

end if 

while stack_empty = false do 

pop element (i,j) off the stack 
pixel_label_and_check_neighbor(g(i, j) , output, 
count, sum, target, diff) 

end while 

if ( object _found == 1) 
object_found = 0 
if (count >= min_area AND 
count <= max_area) 
g_label = g_label + 1 
else remove object 

for all output (i,j) = g_label 
output (i,j) = 0 
input (i,j) = F0RGET_IT 

end else remove object 
end if 

end of checking jth element 
end of scanning ith row 
The End 



Figure 10.19: The Improved Region Growing Algorithm (Part 1) 
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procedure pixel_label_and_check_neighbor (g(r , e) , output, 

count, sum, 
target, diff) 



output (r,e) 
count 
sum 
target 



= g_label 
= count+1 
= sum + g(r,e) 
= sum/ count 



for (R=r-1 ; r<=r+l; R++) 

for (E=e-1; e<=e+l; e++) 



if g(R,E) ! = FORGET. IT AND 

output (R,E) == 0 AND 

is.close (g(R,E) , target, diff) 
push (R,E) onto the stack 
stack.empty = false 

end if 



end loop over E 
end loop over R 

end procedure pixel_label_and_check_neighbor 



procedure is.close (pixel, target, diff) 

if absolute value (pixel - target) < diff 
return 1 

else 



return 0 

end procedure is.close 



Figure 10.19: The Improved Region Growing Algorithm (Part 2) 
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The new algorithm limits the size of objects in step 6. It tests count 
(the size of an object) against min area and max area. If the object fails the 
test, you set all pixels of g in the object to FORGETJT and set all pixels 
in output to zero. This removes the object from output and eliminates the 
pixels from any future consideration in g. 

I’ve already discussed how the new algorithm excludes pixels with certain 
values via the FOR, GET IT value. To remove edges from consideration, lay 
the edge detector output on top of the input image and set to FORGETJT 
all pixels corresponding to the edges. 

Listing 10.2 shows the source code for the three subroutines outlined in 
Figure 10.19 (pixeLgrow, pixel label and check neighbor, and is close). They 
follow the algorithm closely. 

The improved region-growing algorithm is the key to the new techniques. 
It ignores certain pixels and eliminates objects of the wrong size. These small 
additions produce segmentation results that are much better than those in 
Chapter 9. 



10.5 The Three New Techniques 

Now that I’ve laid all the groundwork, let’s look at the three new techniques. 



10.5.1 Edges Only 

The edge_region subroutine shown in Listing 10.7 implements this technique. 
The algorithm is 

1. Edge detect the input image 

2. Threshold the edge detector output 

3. Erode the edges if desired 

4. Set the edge values to FORGETJT 

5. Grow the objects while ignoring the edges 

Steps 1 through 4 should produce an image like that shown in Figure 
10.1. Step 5 grows the objects as outlined by the edges. The edge_region 
subroutine calls any of the edge detectors from this and previous chapters, 
the histogram functions from previous chapters, and the hnd.cutoff .point, 
erode Jmage.array, and pixeLgrow functions from Listing 10.2. 

The edgeJype parameter specifies which edge detector to use. min_area 
and max area pass through to the pixeLgrow routine to constrain the size of 
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the objects detected, diff passes through to pixeLgrow to set the tolerance on 
gray shades added to an object, diff has little meaning for this technique be- 
cause the image in which regions are grown contains only Os and FORGETJT 
pixels. The percent parameter passes through to the find_cutoff_point rou- 
tine to threshold the edge detector output. The set_value parameter is the 
turned-on pixel in the threshold_image_array and erode_image_array routines. 
Finally, the erode parameter determines whether to perform erosion on the 
edge detector output. If erode is not zero, it is the threshold parameter for 
erode_image_array. 



10.5.2 Gray Shades Only 

The short gray shade region subroutine in Listing 10.2 implements this tech- 
nique. This subroutine calls the pixeLgrow function. pixeLgrow does all the 
work since it handles the gray shade region growing and limits the sizes of 
the objects. The diff, min.area, and max_area parameters play the same role 
as in the edge .region routine described above. 

10.5.3 Edges and Gray Shade Combined 

The technique for combining edges and gray shades is implemented by the 
edge_gray_shade_region function in Listing 10.2. The algorithm is: 

1. Edge detect the input image 

2. Threshold the edge detector output 

3. Erode the edges if desired 

4. Read the input image again 

5. Put the edge values on top of the input image setting them to FORGETJT 

6. Grow gray shade regions while ignoring the edges 

The differences between edge_region and edge_gray_shade_region are in 
steps 4 and 5. At this point, edge_gray_shade_region reads the original input 
image again and overlays it with the detected edges. Step 8 grows gray 
shade regions while ignoring the detected edges. Steps 1 through 7 generate 
an image like the left side of Figure 10.3. Step 8 generates the right side of 
Figure 10.3. 

Figures 10.20 through 10.23 illustrate these techniques on the aerial image 
of Figure 10.4. Figure 10.20 shows the result of the Sobel edge detector after 
erosion. The edges outline the major objects in the image fairly well. 
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Figure 10.20: Sobel Edge Detector Output from Figure 10.4 (after Erosion) 



Figure 10.21 shows the result of the edge-only segmentation of Figure 
10.4. It is the result of growing the black regions of Figure 10.20. This is a 
good segmentation as it denotes the house trailers, roads, trees, and parking 
lots. This is not just the negative image of Figure 10.20. Regions too small 
and too large were eliminated. 

Figure 10.21 is the result of the gray-shade-only segmentation of Figure 
10.4. This segmentation also found the major objects in the image. The 
combination of edge and gray shade segmentation in Figure 10.26 shows the 
edges of Figure 10.20 laid on top of the input image of Figure 10.4. Figure 
10.23 shows the final result of growing gray shade regions inside these edges. 
This segmentation has better separation of objects than the gray-shade-only 
segmentation of Figure 10.21. The edges between the objects caused this 
spacing. 

Which segmentation is best? That is a judgment call. All three segmen- 
tations, however, are better than those produced by the simple techniques in 
Chapter 9. 

Figures 10.24, 10.25, and 10.26 show the results of the three techniques 
applied to the house image of Figure 10.5. The edge-only segmentation of 
Figure 10.24 is fairly good as it denotes most of the major objects in the 
image. The gray-shade-only result in Figure 10.25 is not very good because 








§3f 






3tSlj tijjk, Isjj 2 flw^ijj 






Ihm 






10.6. INTEGRATING THE NEW TECHNIQUES 



149 




Figure 10.23: Result of Edge and Gray Shade Segmentation of Figure 10.4 

all the objects are right next to each other and hard to distinguish. The 
combination segmentation in Figure 10.26 is an excellent result. It detected 
objects not found in the edge-only technique and also eliminated many of 
the unwanted bricks. 



10.6 Integrating the New Techniques 

Listing 10.3 shows the main2seg program for segmenting entire images using 
the new techniques. It is command-line driven and calls the functions given 
in the previous listings. It follows the same pattern as the mainseg program 
of chapter 9 and other programs shown in this text. 



10.7 Conclusions 

This chapter described three powerful image segmentation techniques that 
work on complicated images. The techniques, however, are only combinations 
of existing tools and tricks. Given different images, you might have used 
different combinations of tools. Experiment, try different combinations, and 
modify existing tools to create new ones. 
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Figure 10.26: Result of Edge and Gray Shade Segmentation of Figure 10.5 

10.8 Reference 



10.1 “The Image Processing Handbook, Third Edition,” John C. Russ, CRC 
Press, 1999. 
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Chapter 11 

Manipulating Shapes 



11.1 Introduction 

This chapter will discuss manipulating shapes. The last two chapters dis- 
cussed image segmentation. Segmentation took an image and produced a 
binary output showing the objects of interest. This chapter will describe 
several techniques for taking those objects and improving their appearance. 



11.2 Working with Shapes 

A major goal of image processing is to improve the appearance of an image. 
Figure 11.1 shows an aerial image, and Figure 11.2 a segmentation of it. 
Figure 11.3 shows a house, and Figure 11.4 a segmentation of it. These are 
good segmentations, but they have problems. 

Segmentation results have “holes” in them. The roof in Figure 11.4 should 
be solid, but has holes. Larger holes can even break objects. The opposite 
can also be true, as segmentation can join separate objects. Segmentation 
results often have little or no meaning. The solid objects resemble blobs and 
are hard to interpret. 

The answer to these problems is morphological filtering or manipulating 
shapes. Useful techniques include erosion and dilation, opening and closing, 
outlining, and thinning and skeletonization . 

These techniques work on binary images where the object equals a value 
and the background is zero. Figure 11.5 shows a binary image with the 
background equal to zero and the object equal to 200. All the figures in the 
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Figure 11.2: Segmentation of Aerial Image 
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Figure 11.3: House Image 




Figure 11.4: Segmentation of House Image 
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Figure 11.5: A Binary Image 
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Figure 11.6: The Result of Eroding Figure 11.5 



chapter will use the same format. 



11.3 Erosion and Dilation 

The erosion and dilation operations make objects smaller and larger. These 
operations are valuable in themselves and are the foundation for the opening 
and closing operations. Erosion, discussed briefly in Chapter 10, makes an 
object smaller by removing or eroding away the pixels on its edges. Figure 
11.6 shows the result of eroding the rectangle in Figure 11.5. 

Dilation makes an object larger by adding pixels around its edges. Figure 
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Figure 11.7: The Result of Dilating Figure 11.5 



11.7 shows the result of dilating the rectangle in Figure 11.5. I set any zero 
pixel that was next to a 200 pixel (shown as asterisks). 

There are two general techniques for erosion and dilation. The technique 
introduced in Chapter 10 employs a threshold [11.1]. Another technique uses 
masks to erode and dilate in desired directions [11.2], 

The threshold technique looks at the neighbors of a pixel and changes 
its state if the number of differing neighbors exceeds a threshold. Listing 
11.1 shows the erosion and dilation routines that use this method. The loops 
in the erosion routine examine every pixel equal to value in the_image. The 
loops count the number of zero neighbors and set the pixel in question to zero 
if the count exceeds the threshold parameter. Figure 11.6 used a threshold 
parameter of three. Compare this to Figure 11.8 (threshold = two). 

The loops in the dilation routine do the opposite. They count the value 
pixels next to a zero pixel. If the count exceeds the threshold parameter, set 
the zero pixel to value. The dilation in Figure 11.7 used threshold = three, 
while Figure 11.9 used threshold = two. 

The masking technique [11.2] lays an nxn (3x3, 5x5, etc.) array of Is and 
Os on top of an input image and erodes or dilates the input. With masks 
you can control the direction of erosion or dilation. Figure 11.10 shows four 
3x3 masks (5x5, 7x7, etc. masks are other possibilities). The first two masks 
modify the input image in the vertical or horizontal directions while the 
second two perform in both directions. 

Figure 11.11 shows the results of dilating the object of Figure 11.5 using 
the four masks of Figure 11.10. The procedure is: 
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Figure 11.8: The Result of Eroding Figure 11.5 Using a Threshold of 2 
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Figure 11.9: The Result of Dilating Figure 11.5 Using a Threshold of 2 
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Figure 11.10: Four 3x3 Masks 
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1. Place the 3x3 mask on the object so that the center of the 3x3 array lies 
on the edge of the object. 

2. Place a 200 everywhere a one from the mask lies. 

The object in the first part of Figure 11.11 has been dilated, or stretched, 
vertically. The second result is a horizontal dilation. The third and fourth 
show dilation in both directions. These last two differ in dilating the corners 
of the object. 

Mask erosion is the same, but opposite. It lays the 3x3 mask on the image 
so that the center of the array is on top of a zero. If any of the Is in the 
mask overlap a 200 in the image, set the 200 to zero. Vertical mask erosion 
removes the top and bottom rows from an object. Horizontal mask erosion 
removes the left and right columns, and the other masks remove pixels from 
all edges. 

Listing 11.1 shows the routines for mask erosion and dilation, mask.dilation 
copies the correct directional mask specified by the mask.type parameter and 
goes into the looping code. The loop moves through the input image and lays 
the 3x3 mask on top of every pixel in the image. The inner loops examine 
those places where the 3x3 mask equals one. If the image is greater than 
one (non-zero) at that place, set max to the input image value. After exiting 
the loop, set the out_image to max. This changes zero pixels to value and 
enlarges or dilates an object in thedmage. 

The mask.erosion routine performs the opposite function. Its inner loops 
look at those places where the 3x3 mask is one and try to find pixels in 
thedmage that are less than min (that are zero). If there are any zeros in 
this part of thedmage, set outdmage to zero. This removes value pixels, 
makes them zeros, and erodes an object in thedmage. 

Figure 11.12 illustrates directional dilation. The left section shows the 
segmentation of the house image. The center section shows dilating with a 
vertical mask, and the right section shows dilating with a horizontal mask. 



11.4 Opening and Closing 

Opening and closing help separate and join objects. They are powerful op- 
erators that are simple combinations of erosion and dilation, opening spaces 
objects that are too close together, detaches objects that are touching and 
should not be, and enlarges holes inside objects. The first part of Figure 
11.13 shows two objects joined by a “thread.” The second part shows how 
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Figure 11.12: Examples of Masked Vertical and Horizontal Dilations 



opening eliminated the thread and separated the two objects. The rest of 
the figure shows how opening enlarged a desired hole in an object. 

Opening involves one or more erosions followed by one dilation. Eroding 
the object of Figure 11.13 twice erases the thread. A dilation enlarges the 
two objects back to their original size, but does not re-create the thread. The 
left side of Figure 11.14 is a segmentation of the house image from Chapter 
10. The right side is the result of opening (three erosions followed by one 
dilation). Although excessive, it shows how opening spaces the major objects. 

Closing joins broken objects and fills in unwanted holes in objects. The 
first part of Figure 11.15 shows two objects that should be joined to make a 
line. The second part shows how closing removes the break in the line. The 
last two parts of Figure 11.15 show how closing fills in unwanted holes in 
objects. 

Closing involves one or more dilations followed by one erosion. Dilating 
the top part of Figure 11.14 twice enlarges the two objects until they join. 
An erosion thins them back to their original width. Dilating the third part 
of Figure 11.15 twice makes the box bigger and eliminates the hole. Eroding 
shrinks the box back to its initial size. 

Listing 11.1 shows the routines that perform opening and closing. They 
call the mask erosion and dilation routines, but calling the threshold erosion 
and dilation routines would work just as well (homework for the reader), 
opening calls mask.dilation one or more times and mask.erosion once, closing 
calls mask erosion one or more times and mask dilation once. These are 
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Figure 11.13: Two Objects Joined by a Thread, Separated by opening and 
a Hole Enlarged by opening 
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Figure 11.14: A Segmentation and the Result of Opening 



simple, yet powerful routines. 



11.5 Special Opening and Closing 

The opening and closing operators work well, but sometimes produce unde- 
sired side effects, closing merges objects, but sometimes merges objects that 
it shouldn’t. Figure 11.16 shows such a case. Figure 11.17 shows the result 
of closing applied to Figure 11.2. closing closed the holes in the objects, but 
also joined distinct objects. This distorted the segmentation results, opening 
enlarges holes in objects, but can break an object. Figure 11.18 shows a case 
where opening broke an object and eliminated half of it. 

The answer is special opening and closing routines that avoid these prob- 
lems. Figure 11.19 shows the desired result of such special routines that open 
and close objects, but do not join or break them. 

The first difficulty to overcome is what I call the 2-wide problem. In 
opening, you erode an object more than once, and an object that is an even 
number of pixels wide can disappear. The first part of Figure 11.20 shows 
a 2-wide object. The second part shows the object after one erosion, and 
the third part shows it after two erosions. The object will disappear entirely 
after several more erosions. 

A solution to the 2-wide problem is my own variation of the grass fire 
wavefront technique [11.3]. My technique scans across the image from left to 
right looking for a 0 to value transition. When it finds one, it examines the 
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Figure 11.15: Two Objects that Should be Joined, How closing Removes the 
Break and Fills Unwanted Holes 
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Figure 11.16: An Unwanted Merging of Two Objects 
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Figure 11.17: Closing of Segmentation in Figure 11.2 



value pixel to determine if removing it will break an object. If removal does 
not break the object, it sets the pixel to 0 and continues scanning. Next, 
it scans the image from right to left and does the same operation. Then it 
scans from top to bottom, and finally from bottom to top. The different 
scans will not erode away an object that is 2- wide. 

The key to special opening is not breaking the object. One solution places 
the pixel in question in the center of a 3x3 array. Find every value pixel next 
to the center pixel. Do all of those pixels have value neighbors other than 
the center pixel? If yes, erode or remove the center pixel. If no, removing 
the center pixel will break the object. The top part of Figure 11.21 shows 
cases where removing the center pixel will break the object. The bottom 
part shows cases where removing the center pixel will not break the object. 
Here, every 200 has a 200 neighbor other than the center pixel. 

A similar problem in special closing is not joining two separate objects 
when dilating or setting a pixel. One solution is to place the pixel in question 
in the center of a 3x3 array. Grow objects in this array and check if the center 
pixel has neighbors whose values differ as shown in Chapter 9. If their values 
differ, do not set the center pixel because this will join different objects. The 
top part of Figure 11.22 shows 3x3 arrays and the results of growing objects. 
The center pixel has neighbors that are parts of different objects, so do not 
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Figure 11.18: An Unwanted Splitting of an Object 
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Special closing does not join objects 
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Figure 11.19: Result of Special Routines that Open and Close Objects but 
do not Join or Break Them 
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A 2-Wide Object 
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Figure 11.20: Result of Opening of a 2- Wide Object 
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Figure 11.21: Cases Where Objects Can and Cannot be Eroded 
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Figure 11.22: Cases that do and do not Require a Special Closing Routine 



set the center pixel. The bottom part of Figure 11.22 shows another set of 
3x3 arrays. Here, the non-zero neighbors of the center pixel all have the same 
value, so setting the center pixel is alright. 

The source code to implement special opening and special closing, shown 
in Listing 11.2, is basic but long. The speciaLopening routine calls thinning 
(instead of erosion — thinning is discussed in a later section) one or more 
times before calling dilation once, thinning works around the 2-wide problem 
while performing basic threshold erosion, thinning has four sections — one 
for each scan (left to right, right to left, top to bottom, and bottom to top) re- 
counted earlier. Whenever thinning finds a pixel to remove, it calls can thin 
to prevent breaking an object, can.thin checks the non-zero neighbors of 
the center pixel. If every non- zero pixel has a non-zero neighbor besides the 
center pixel, can.thin returns a one, else it returns a zero. 

The speciaLclosing routine calls dilate_not_join one or more times before 
calling erosion once. dilate_not_join uses the basic threshold technique for di- 
lation and calls candidate to prevent joining two separate objects, can.dilate 
grows objects in a 3x3 array and checks if the center pixel has neighbors with 
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different values. If it does, the neighbors belong to different objects, so it 
returns a zero, can dilate grows objects like the routines in Chapters 9 and 
10. can.dilate calls littledabel_and_check which resembles routines described 
in those two chapters. 

Figure 11.23 shows the result of special closing. Compare this with Fig- 
ures 11.2 and 11.17. Figure 11.2, the original segmentation, is full of holes. 
Figure 11.17 closed these holes, but joined objects and ruined the segmenta- 
tion result. Figure 11.23 closes the holes and keeps the segmentation result 
correct by not joining the objects. 




Figure 11.23: Special Closing of Segmentation of Figure 11.2 

Figures 11.24 and 11.25 show how to put everything together to improve 
segmentation results. Figure 11.24 shows the outcome of eroding the seg- 
mentation result of Figure 11.4. Applying special closing to Figure 11.24 
produces Figure 11.25. Compare Figures 11.4 and 11.25. Figure 11.25 has 
all the major objects cleanly separated without holes. 

11.6 Outlining 

Outlining is a type of edge detection. It only works for zero-value images, 
but produces better results than regular edge detectors. Figure 11.26 shows 
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Figure 11.25: Special Closing of Figure 11.24 
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the exterior outline of the objects in Figure 11.4. 




Outlining helps understand an object. Figures 11.27 and 11.28 show the 
interior and exterior outlines of objects. Outlining zero-value images is quick 
and easy with erosion and dilation. To outline the interior of an object, erode 
the object and subtract the eroded image from the original. To outline the 
exterior of an object, dilate the object and subtract the original image from 
the dilated image. Exterior outlining is easiest to understand. Dilating an 
object makes it one layer of pixels larger. Subtracting the input from this 
dilated, larger object yields the outline. 

Listing 11.1 shows the source code for the interior .outline and exte- 
rior .outline operators. The functions call the mask erosion and mask dilation 
routines. They could have called the threshold erosion and dilation routines 
(homework for the reader). The interior .outline routine erodes the input im- 
age and subtracts the eroded image from the original. The exterior .outline 
routine dilates the input image and subtracts the input image from the di- 
lated image. 
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Figure 11.27: The Interior Outline of an Object 
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Figure 11.28: The Exterior Outline of an Object 
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Figure 11.29: Thinning a Rectangle until it is One Pixel Wide 



11.7 Thinning and Skeletonization 

Thinning is a data reduction process that erodes an object until it is one-pixel 
wide, producing a skeleton of the object. It is easier to recognize objects such 
as letters or silhouettes by looking at their bare bones. Figure 11.29 shows 
how thinning a rectangle produces a line of pixels. 

There are two basic techniques for producing the skeleton of an object: 
basic thinning and medial axis transforms. 

Thinning erodes an object over and over again (without breaking it) until 
it is one- pixel wide. Listing 11.2 contains the thinning routine. The spe- 
ciaLopening routine used thinning to erode objects without breaking them. 
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In that context, the once.only parameter of thinning is one, so that it would 
erode an image only one time. Setting once only to zero causes thinning to 
keep eroding until the objects in the image are all one-pixel wide. 

This basic thinning technique works well, but it is impossible to re-create 
the original object from the result of thinning. Re-creating the original re- 
quires the medial axis transform. 

The medial axis transform finds the points in an object that form lines 
down its center, that is, its medial axis. It is easier to understand the medial 
axis transform if you first understand the Euclidean distance measure (don’t 
you love these big terms that really mean very simple things?) . The Euclidean 
distance measure is the shortest distance from a pixel in an object to the edge 
of the object. Figure 11.30 shows a square, its Euclidian distance measure 
(distance to the edge), and its medial axis transform. 

The medial axis transform consists of all points in an object that are 
minimally distant to more than one edge of the object. Every pixel in the 
bottom of Figure 11.30 was the shortest distance to two edges of the object. 
The advantage of the medial axis transform is you can re-create the original 
object from the transform (more homework). Figure 11.31 shows a rectangle 
(from Figure 11.29) and its medial axis transform. Figure 11.32 shows a 
block letter A, and going clockwise, the result of exterior outline, medial axis 
transform, and thinning. 

Listing 11.2 shows the source code to implement the Euclidean distance 
measure and the medial axis transform, edm calculates the Euclidean dis- 
tance measure. It loops through the image and calls distance 8 to do most of 
the work, distanced? has eight sections to calculate eight distances from any 
value pixel to the nearest zero pixel, distanced? returns the shortest distance 
it found. 

The functions mat and mat d calculate the medial axis transform in a 
similar manner, mat loops through the image and calls mat d to do the 
work. mat_d calculates the eight distances and records the two shortest 
distances. If these two are equal, the pixel in question is minimally distant 
to two edges, is part of the medial axis transform, and causes mat_d to return 
value. 
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Figure 11.30: A Square, its Euclidean Distance Measure, and its Medial Axis 
Transform (Part 1) 
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Figure 11.30: A Square, its Euclidean Distance Measure, and its Medial Axis 
Transform (Part 2) 



11.8 A Shape Operations Application Pro- 
gram 



Listing 11.3 shows application program mainsk that ties together all the 
routines that manipulate shapes. It can call 14 different operations. The 
format of mainsk is the same as the other applications presented in this text. 



11.9 Conclusions 

This chapter discussed shape operations or morphological filters. These tech- 
niques help you improve the appearance of segmentation results. They are 
also useful for other situations. As with all the image processing operators in 
this system, you must experiment. Try the techniques and tools in different 
combinations until you find what works for the image or class of images at 
hand. 
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Figure 11.31: A Rectangle and its Medial Axis Transform 
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Chapter 12 

Boolean and Overlay 
Operations 

12.1 Introduction 

This chapter will discuss Boolean and overlay operations. These operations 
are useful for combining images in interesting ways. They are also good for 
creating special effects in images. The goal is to combine two images to 
produce a third that has features of the two inputs. The Boolean operations 
use the functions of Boolean algebra. The overlay operations lay selected 
pixels from one image on top of another. These are similar to the image 
addition and subtraction of Chapter 8. 



12.2 Boolean Operations 

The Boolean operations execute the basic functions from Boolean algebra. 
Figure 12.1 shows the truth table for these operations. The output of the 
AND is one when both inputs are one. The output of the OR is one if either 
of the inputs are one. The output of the exclusive or (XOR) is one if one but 
not both of the inputs is one. The NAND is the opposite of the AND, the 
NOR is opposite of the OR, and the NOT reverses the input. 

It is a simple matter to extend Boolean operations for gray scale images. 
Replace the Is in the A and B columns of the truth table with any non-zero 
value. Replace the Is in the output columns with the non-zero value from 
the A column. For example, if the A image contains all 200s and the B image 
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a b a AND b a OR b a XOR b a NAND b a NOR b NOT a 
0 0 0 0 0 1 1 1 

010 1 1 1 01 

100 1 1 1 00 

1 1 1 1 0 0 0 0 

Figure 12.1: Existing Standard TIFF Tags 

contains all 100s, the output of A AND B will be all 200s. 

Listing 12.1 shows the subroutines that implement the Boolean opera- 
tions. Each of the routines (and image, ordmage, xor image, nandJmage, 
nor_image, not_image) follows the usual pattern. They combine the input 
image arrays using the truth table and return the result. These are simple, 
yet powerful routines. 

Listing 12.2 shows the boolean program. This program allows the user to 
apply any of the Boolean operators to images. It follows the same pattern 
as all main programs in this text. 

12.3 Applications of Boolean Operations 

Let’s look at two applications of the Boolean operations: masking and label- 
ing images. Masking places the gray shades of an image on top of a binary 
image derived from it. Figure 12.2 shows an aerial image, and Figure 12.3 
shows a segmentation of it from Chapter 10. This is a fairly accurate seg- 
mentation, but it is difficult to correlate the white shapes to objects in the 
image. Is the large rectangle to the left grass or a parking lot? One way of 
determining the source of the objects is to mask the original over the seg- 
mentation using the AND operation. Figure 12.4 shows the result of masking 
(ANDing). It is easy to see that the large rectangle is a tennis court, some 
of the roads are cement (white) , and others are asphalt (gray) . 

Another use of the Boolean operations is to create and place labels on top 
of images. Listing 12.3 shows an image labeling program called ilabel. This 
program writes simple 9x7 block letters to an image file. The user calls the 
program by giving an output image name, a line and element in the image, 
and the text to go in the image. For example, 
ilabel a.tif 10 20 adam 

places the letters ADAM in the image a.tif starting in the tenth row, twentieth 





12.3. APPLICATIONS OF BOOLEAN OPERATIONS 



12.3: Segmentation of Ae] 
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element. Most of the listing is the arrays defining the block letters, numbers, 
and a few punctuation marks. The program itself loops through the letters 
in the text and copies each letter’s array into the image array. 




Figure 12.4: Segmented Aerial Image Masked with Original 

The left side of the image in Figure 12.5 shows the output of the ilabel 
program. The words ADAM PHILLIPS are clear enough, but they will 
disappear if laid on top of an image. They need a background. The center 
section of Figure 12.5 shows the result of dilating the words as in Chapter 
11. The right side of Figure 12.5 shows the final label — black letters on a 
white background. The final label is the result of the exclusive or (XOR) of 
the letters and their dilation. The output of the XOR is white only where 
one or the other image is white, but not both. 

Figure 12.6 is the outcome of labeling. It is the result of ORing the final 
label of Figure 12.5 with the boy image. ORing allows us to see through the 
label to the image underneath. It is also possible to label the image using 
the greater overlay discussed later. Creating the label, however, is possible 
only via the XOR operation. 

These are only two possible uses of the Boolean operations. There are 
many more, especially when you start combining them. After all, combining 
Boolean operations is how people build computers. 
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Figure 12.6: Labeled Boy Image 
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12.4 Overlay Operations 

The overlay operations lay select pixels from one image on top of another 
and place the output into a third image. This chapter shows five types of 
pixel overlay operations from image A on top of image B. These are 

1. overlay non-zero pixels from A onto B, 

2. overlay zero pixels from A onto B, 

3. overlay pixels from A onto B if they are greater, 

4. overlay pixels from A onto B if they are less, and 

5. average the pixels from A and B and use this as the output. 

Figures 12.7 through 12.12 illustrate these operations. Figure 12.7 shows 
two image arrays: A and B. Figure 12.8 shows the result of laying the non- 
zero pixels of A on top of B. This looks like image A except for the absence 
of the 2x2 area of Os in the lower right. Figure 12.9 shows the result of laying 
the zero pixels of A on top of B. This looks like image B except for the 
addition of the 2x2 area of Os. Figure 12.10 shows the result of overlaying 
the pixels in A that are greater than the corresponding pixels in B. Note the 
column of 100s to the far right. Figure 12.11 shows the result of overlaying 
the pixels in A that are less than the corresponding pixels in B. Note the 
predominance of 50s and the Os. Figure 12.12 shows the result of averaging 
images A and B. Figure 12.12 is not easy to perceive or read and is better 
illustrated with the images discussed below. 

Listing 12.4 shows the subroutines that implement the overlay operations. 
The following routines follow the usual model: non _zero -Overlay, zero -Overlay, 
greater-overlay, less -overlay, and average_overlay. They combine the input 
image arrays and return the result. 



12.5 Applications of Overlay Operations 

Let’s look at two applications of image overlaying. The first is the double 
exposure. Figure 12.13 shows two images side by side. Figure 12.14 shows 
the result of averaging the two together. This resembles a double exposure 
image, as it contains both images. 

This technique can also apply a pattern or texture to an image. Figure 
12.15 shows a leafy texture, and Figure 12.16 shows a house. Figure 12.17 is 
the result of averaging the two. It is easy to recognize the house, but parts 
of it (notably the roof and door) have a texture or pattern to them. 
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Figure 12.7: Images A and B 
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Figure 12.8: Result of Overlay Non- Zero A 
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Figure 12.9: Result of Overlay Zero A 
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Figure 12.10: Result of Overlay Greater A 
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Figure 12.11: Result of Overlay Less A 
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Figure 12.12: Result of Average Overlay 




Figure 12.13: Two Images Side by Side 
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Figure 12.14: Two Images Averaged 




Figure 12.15: Leafy Texture Image 
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A second application of overlaying is to frame an area of interest in an 
image. The first step is to create a frame. Figure 12.18 shows a white frame 
in a blank image. I created this by modifying the create program of chapter 
8 (left as an exercise for the reader). 



□ 



Figure 12.18: White Frame in Blank Image 



Laying the rectangle of Figure 12.18 on top of a boy image produces 
Figure 12.19. The frame draws attention to a spot on the boy image. This is 
the result of overlaying the pixels in Figure 12.18 that are greater than the 
pixels in the boy image. The dark pixels inside the frame of Figure 12.18 are 
all zero so they disappear in the overlaying process. The white frame pixels 
are all 255 so they show up well in the result. 

It is possible to create a frame of all zeros with a small area of 255s in 
the center. Using the zero_overlay or less -Overlay would produce a thick dark 
frame around an area of interest. 

Listing 12.5 shows the mainover program. This application allows the 
user to call any of the overlay programs discussed here and shown in listing 
12.4. It follows the same pattern as the other applications discussed in this 
text. 
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Figure 12.19: Frame Overlaid on Boy Image 

12.6 Conclusions 

This chapter has discussed Boolean and overlay operations. Though not 
complicated, these operations allow you to combine images in interesting 
and creative ways. There are endless possibilities to the combinations. As 
with all the other operators in this system, you should experiment. Use the 
operators as building blocks and mix them to fit your needs. 




Chapter 13 

Geometric Operations 



13.1 Introduction 

Basic image processing operations include the geometric type that rotate 
images and scale them (make them bigger and smaller). The first edition of 
this text included some simple forms of these operations. Those operators 
are not in this edition. Instead, this chapter discusses a powerful geometric 
operator that displaces, rotates, stretches, and bends images. It also includes 
a useful and simple program that stretches images to almost any size. 

13.2 Geometric Operations 

Geometric operations change the spatial relationships between objects in an 
image. They do this by moving objects around and changing the size and 
shape of objects. Geometric operations help rearrange an image so we can 
see what we want to see a little better. 

The three basic geometric operations are displacement, stretching, and 
rotation. A fourth operation is the cross product (included here to show how 
to distort an image using higher order terms) . 

Displacement moves or displaces an image in the vertical and horizontal 
directions. Stretching enlarges or reduces an image in the vertical and hor- 
izontal directions. Rotation turns or rotates an image by any angle. Figure 
13.1 shows the basic idea of these three operations. 

Equations (13.1) and (13.2) describe mathematically how to perform 
these operations [13.1]. The first two terms in each equation perform the 
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X 



y_stretch 



Figure 13.1: The Three Basic Geometric Operations: Displacement, Stretch- 
ing, and Rotation 

rotation by any angle 9 . The x disp i ace and Vdispiace terms perform displace- 
ment. They shift the image in either direction (shift to the left for x disp i ace 
greater than zero, shift to the right for less than zero). The x times x s t re tch 
enlarges or shrinks the image in the horizontal direction while the y times 
Ustretch does the same in the vertical direction. The x cross and y cr oss terms 
distort the image and an example explains them better than words. 

X = x ■ cos (9) + y ■ sin(9) + x disp i aC e + x ■ x stre tch + x- y ■ x cross (13.1) 



T — y cos(9) x ■ sin{9 ) -I- y<nspiace T y • ystretch T x ■ y ■ y C ross (13.2) 

The power of equations (13.1) and (13.2) is that they do all three (four) 
operations at one time. Setting the terms accomplishes any or all the oper- 
ations. 

Figures 13.2 through 13.6 illustrate the operations. Figure 13.2 shows 
displacement. The upper left hand corner shows in the input image. This is 
a window and brick wall from a house. The upper right hand corner shows 
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the result of displacing the input image up and to the left. The lower left 
hand corner shows the result of displacing the input image down and to the 
right ( x disp i ace and ydispiace are negative values such as -10). The lower right 
hand corner shows displacement up and to the right. 




Figure 13.2: Examples of Displacement 

Note that when any operator moves an image, blank areas fill in the 
vacant places. 

Figure 13.3 shows stretching. The upper left hand corner is the input. 
The upper right hand corner is the result of stretching the input image in 
both directions (set x str etch and y stretch to 2.0). The lower left hand corner 
is the result of stretching the input image with values less than 1.0. This 
causes shrinking. The lower right hand corner shows how to combine these 
effects to enlarge the image in the horizontal direction and shrink it in the 
vertical direction. 

Figure 13.4 shows rotation. The upper left hand corner is the input image. 
The other areas show the result of rotating the input image by pinning down 
the upper left hand corner (the origin) . The other areas show rotations of 9 
= 30, 45, and 60 degrees. 

Figure 13.5 shows the influence of the cross product terms x cross and y cr0 ss- 
Setting these terms to anything but 0.0 introduces non-linearities (curves). 
This is because equations (13.1) and (13.2) multiply the terms by both x and 
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Figure 13.4: Examples of Rotation about the Origin 
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y. The input image is on the left side of Figure 13.5 with the output shown 
on the right ( x cross and y cross = 0.01). Values much bigger than this distort 
the output image to almost nothing. 




Figure 13.5: Examples of Cross Products 



Using higher order terms in equations (13.1) and (13.2) can cause greater 
distortion to the input. You can add a third order term to equation (13.1) 
(x ■ x ■ y ■ x doublecross) and equation (13.2) (y ■ y ■ x ■ y doublecross)- Try this for 
homework. It will be easy given the source code. 

Figure 13.6 shows the result of using all four operations at once. This is 
the result of displacing down and to the right, enlarging in both directions, 
rotating 30 degrees, and using cross products. It is a simple matter of setting 
the terms in the equations. 

Listing 13.1 shows the geometry routine that implements these opera- 
tions. It has the same form as the other image processing operators in this 
series. The parameters are from equations (13.1) and (13.2). First, geometry 
converts the input angle theta from degrees to radians and calculates the sine 
and cosine. The next section prepares the stretch terms to prevent dividing 
by zero. 

The loops over i and j move through the input image. All the math uses 
doubles to preserve accuracy, newJ and new j are the coordinates of the 
pixels in the input image to copy to the output image. 

The final section of geometry sets the output image to the new points 
in the input image. If bilinear == 1, we will call the bi-linear interpolation 
function described below. If bilinear == 0, we set the output image directly. 
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Figure 13.6: Combining All Four Geometric Operations 

The compound if statement checks if the new points are inside the image 
array. If they are not, set the outdmage to the FILL value (this fills in 
vacant areas). 

13.3 Rotation About Any Point 

The geometric operations above can rotate an image, but only about the 
origin (upper left hand corner). Another type of rotation allows any point 
(m, n) in the image to be the center of rotation. Equations (13.3) and 
(13.4) describe this operation [13.2], Figure 13.7 illustrates how the input 
image (the rectangle) revolves about the point (m, n). Figure 13.8 shows 
several examples. The upper left hand corner is the input image. The other 
three quadrants show 45 degree rotations about different points in the image. 
Almost anything is possible by combining the basic geometric operations 
shown earlier with this type of rotation. For example, you can displace and 
stretch an image using the earlier operations and rotate that result about 
any point. 



X — x ■ cos(9 ) — y ■ sin(0) — m ■ cos(theta) + n ■ sin(9) + m (13.3) 
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Y = y ■ cos(6 ) + x ■ sin{9) — m ■ sin(theto ) — n ■ sin(9) + n (13-4) 

X 




Figure 13.7: Rotation About any Point m,n 



Listing 13.1 next shows the routine arotate that performs rotation about 
any point (m, n). arotate converts the angle of rotation from degrees to 
radians and calculates the sine and cosine. It loops through the image and 
calculates the new coordinates tmpx and tmpy using equations (13.3) and 
(13.4). If bilinear == 1, use bi-linear interpolation (coming up next). If 
bilinear == 0, check to see if the new coordinates are in the image array. If 
the are, set the output image to those points in the input image. 

13.4 Bi-Linear Interpolation 

Now that we have some basics behind us, let’s move forward. Critical to mak- 
ing the results of any of the operations look good is bi-linear interpolation. 
Bi-linear interpolation is present in any good image processing applications 
performed today in commercials, music videos, and movies. As usual, bi- 
linear interpolation is a big name for a common sense idea. It fills in holes 
with gray levels that make sense [13.3] [13.4]. 
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Figure 13.8: Examples of Rotation About Any Point 



The bent lines in Figure 13.9 show why bi-linear interpolation is impor- 
tant. The left side did not use bi-linear interpolation. It has jagged lines. 
The smooth bent lines in the right side illustrate how bi-linear interpolation 
makes things look so much better. 

There is a reason for the jagged lines. In many geometric operations, 
the resulting pixel lies somewhere between pixels. A pixel’s new coordinates 
could be x=25.38 and y=47.83. Which gray level is assigned to that pixel? 
Rounding off suggests x=25 and y=48. (That is what happens in the code 
listings when the parameter bilinear == 0.) Rounding off produces the jagged 
lines. 

Bi-linear interpolation removes jagged lines by Ending a gray level be- 
tween pixels. Interpolation finds values between pixels in one direction (inter- 
polating 2/3’s of the way between 1 and 10 returns 7). Bi-linear interpolation 
Ends values between pixels in two directions, hence the prefix “ bi.” 

Figure 13.10 illustrates how to perform bi-linear interpolation. Point P3 
(x, y) is somewhere between the pixels at the four corners. The four corners 
are at integer pixels (x— 25, x=26, y=47, y=48). Equations (13.5), (13.6), 
and (13.7) find a good gray level for point P3. In these equations, x and 
y are fractions (if x=25.38 and y=47.83, then in the equations x=0.38 and 
y=0.83). 
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Figure 13.9: A Comparison of Not Using Bi-Linear Interpolation and Using 
Bi-Linear Interpolation 



gray(Pl) — (1 — x) ■ gray(floor(x), floor(y )) + x ■ gray(ceiling(x), floor(y )) 

(13.5) 

gray(P2 ) = (1 -x)-gray(floor(x), ceiling(y))+x-gray(ceiling(x),ceiling(y)) 

(13.6) 

gray(P3) = fl - ;/) - gray(Pl) + y ■ gray(P2) (13.7) 

Equation (13.5) finds the gray level of point PI by interpolating between 
the two upper corners. Equation (13.6) finds the gray level of point P2 by 
interpolating between the two lower corners. Equation (13.7) finally finds 
the gray level of P3 by interpolating between points PI and P2. 

Listing 13.1 shows the routine bilinear .interpolate that implements these 
equations. The input parameters are the image array the_image and the 
point (x, y) (in their full form x=25.38 and y=47.83). bilinear .interpolate 
returns the gray level for (x, y). This routine contains slow, double precision 
floating point math. This is the trade-off between techniques — speed verses 
good looks. 

This first part of bilinear interpolate checks if x and y are inside the image 
array. If not, the routine returns a FILL value. The next statements create 
the floor x and y, ceiling x and y, fractional parts of x and y, and one minus 
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Figure 13.10: Bi-Linear Interpolation 



the fractions shown in the figure and needed by the equations. The final 
statements calculate the gray levels of points PI, P2, and P3. The routine 
returns the final gray level of P3. 

Bi-linear interpolation is a simple idea, uses a simple routine, and makes 
a world of difference in the output image. The images shown earlier for ge- 
ometric operations all used the bi-linear option. I recommend the rounding 
method for quick experiments and bi-linear interpolation for final presenta- 
tions. 



13.5 An Application Program 

Listing 13.2 shows the geometry program. This program allows the user to 
either perform the geometric operations of figure 13.1 or the rotation about 
a point of figure 13.7. geometry interprets the command line, loads the 
parameters depending on the desired operation, and calls the operations. It 
has the same form as the other applications in this text. 
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13.6 A Stretching Program 

A useful utility for image processing is enlarging and shrinking an entire im- 
age. The many uses include making an image fit a display screen for printing 
or imaging and making two images about the same size for comparisons. 
The stretching and bi-linear interpolation tools now available permit general 
stretching. 

The main routine and subroutines shown in listing 13.3 make up the 
stretch program. The command line is: 

stretch input-image-file output-image-file x-stretch y- stretch bilinear 

If the bilinear parameter is 1, stretch uses bi-linear interpolation otherwise 
it uses basic rounding. 

stretch has the same form as most applications in this text. It uses the 
create resized image hie because the output hie and input hie have different 
sizes. The main routine allocates the image arrays (different sizes), reads 
the input, calls the stretch subroutine, and writes the output. The stretch 
subroutine borrows heavily from the geometry subroutine shown in listing 
13.1. 

Figure 13.11 shows results of the stretch program. It demonstrates how 
stretch can enlarge in one direction while shrinking in another. The more 
you experiment with image processing, the more you will hnd yourself using 
stretch. It is very handy. 




Figure 13.11: The Boy Image Enlarged Horizontally and Shrunk Vertically 
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13.7 Conclusions 

This chapter discussed geometric operations. These powerful and flexible 
operations change the relationships, size, and shape of objects in images. 
They allow you to manipulate images for better display, comparison, etc. 
Keep them handy in your collection of tools. 
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Chapter 14 

Warping and Morphing 



14.1 Introduction 

This chapter extends the discussion of geometric operations and delves into 
warping and morphing (Hollywood, here we come). Image warping is a 
technique that Hollywood discovered in the 1980’s. The result is the magic 
we see every day in commercials, music videos, and movies. Warping (and 
its cousin morphing) “melts” old cars into new ones and can turn a car into 
a tiger. 



14.2 Image Warping 

Image warping is a technique that bends and distorts objects in images. 
Remember pressing a flat piece of silly putty on a newspaper to copy the 
image to the silly putty? Grabbing and pulling the silly putty distorted the 
appearance of the image. Bending and stretching the silly putty caused the 
objects in the image to assume weird and wonderful shapes. Image warping 
does the same for digitized images as silly putty did for us as kids. 

Using a computer to warp images is not new. It began in the 1960’s with 
early space probes. The pictures of the moon produced by the “cameras” on 
the probes were distorted. Straight lines appeared bent and the objects were 
out of proportion. Image processors at the Jet Propulsion Laboratory [14.1] 
transformed these square images into the shape of pie pieces. The resulting 
pie piece images had straight lines where straight lines belonged. 

The special effects artists in Hollywood discovered warping in the 1980’s. 
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They decided to apply this technique to entertainment. The result is what 
we see every day in commercials, music videos, and movies. 



14.3 The Warping Technique 

The basic idea behind warping is to transform a quadrilateral to a rectangle. 
A quadrilateral is a four-cornered region bounded by straight lines. Trans- 
forming a quadrilateral to a rectangle warps the objects inside the quadrilat- 
eral. 

Figure 14.1 shows a quadrilateral with a point P inside [14.2]. Trans- 
forming a quadrilateral to a rectangle requires finding the coordinates of any 
point P inside the quadrilateral. This is possible given the coordinates of the 
four corners PI, P2, P3, and P4 and the fractions a and b along the edges. 
The key to finding P is using bi-linear interpolation. In the last chapter, 
bi-linear interpolation found the gray level of a pixel between other pixels 
(gray level bi-linear interpolation). It can also find the location of a pixel 
between other pixels (spatial bi-linear interpolation). 

NOTE: This chapter works with shapes that have four Parts (1, 2, 3, and 
4). Part 1 will be in the upper left-hand corner, and parts 2, 3, and 4 will 
proceed clockwise. 

Equations (14.1) through (14.7) show how to find the coordinates of point 
P. (If mathematical derivation is not for you, skip down to the results in 
equations (14.6) and (14.7). The source code given later will implement 
these equations). These equations run through bi-linear interpolation. They 
interpolate along the top and bottom of the quadrilateral and then along the 
sides. In the equations, a and b are fractions (0<a<l,0<61). 

Equation (14.1) finds point Q by interpolating between points PI and P2 
using a. Equation (14.2) finds point R by interpolating between points P3 
and P4 using a. Equation (14.3) finds point P by interpolating between Q 
and R using b. Equation (14.4) is the result of substituting the values of Q 
and R from equations (14.1) and (14.2) into equation (14.3). Equation (14.5) 
gathers all the terms from (14.4). 



Q(a) = P 1 + (P 2 - Pi) a 



(14.1) 



R(a) - l\ + (P 3 - /’ija 



(14.2) 
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P(a,b) = Q + (R-Q)b 



(14.3) 



P(a, b) = P{+ (P 2 - P\)a + [(P 4 + (P 3 - Pi)a) - (Pi + (P 2 - Pi)a)]6 (14.4) 



P(a, b) — Pi + (P 2 - Pi)a + (P 4 - Pi)6 + (P 4 - P 2 + P 3 - P 4 )ab (14.5) 

Equations (14.6) and (14.7) are the final answers. Equation (14.6) shows 
how to find the x coordinate of any point P given the x coordinates of the 
four corners and the fractions a and b. Equation (14.7) does the same for 
the y coordinate. The subroutines described below will implement equations 
(14.6) and (14.7). Notice the ab term in the equations. This term introduces 
non-linearities or curves into the results. 



P{x) — xi + (x 2 — xi)a + (x 4 — x\)b + (aq — x 2 + x 3 — X4,)ab (14.6) 

P(x) =yi + ( y 2 - yi)a + {y A - yi)b + (yi - y 2 + y 3 - y 4 )ab (14.7) 



14.4 Two Ways to Warp 

This chapter implements two kinds of warping. The first is control point 
warping illustrated in figure 14.2. Divide a section of an image into four 
smaller squares 1, 2, 3, and 4. Pick a control point anywhere inside the square 
section. This control point divides the square section into four quadrilaterals 
as shown in the top part of figure 14.2. Equations (14.6) and (14.7) will 
transform these four quadrilaterals back into the four squares as shown in 
the bottom part of figure 14.2. This will warp the objects in the image. The 
control point will dictate the warping. 

Listing 14.1 shows the source code that implements this type of warp- 
ing. The warp subroutine controls the process and calls the warpdoop and 
bi_warp_loop subroutines. The inputs to warp include the usual image arrays 
and line and element coordinates of the image. Specific to warp are the x 
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and y control points and the bilinear parameter. The control points control 
the warping, and bilinear specifies accuracy. If bilinear == 0, warp calls 
warpdoop, otherwise it calls bi_warp_loop. 

warp works on the four quarters of the input image. For each quarter, 
warp sets (xl, yl) through (x4, y4) to the coordinates of the corners of the 
quadrilaterals 1 through 4. warp then sets the extra jx and extra.y variables 
to the upper left hand corner of the small squares. In doing this, warp is set- 
ting the four corners of the quadrilateral. This is necessary to transform the 
quadrilateral to a square, warp calls a warping routine that will implement 
equations (14.6) and (14.7) and bend the objects, warp calls warpdoop for 
quick warping or bLwarpdoop to use bi-linear interpolation for slower but 
better warping. 

warpdoop (next in listing 14.1) implements equations (14.6) and (14.7) 
to transform the small quadrilateral to a small square. First, it sets up the 
coefficients for the equations. The variables xa, xb, and xab correspond to 
a, b, and ab from equation (14.6). The variables ya, yb, and yab correspond 
to a, b, and ab from equation (14.7). The loops over i and j calculate the 
coordinates of the pixels in the input image that will be copied to the out- 
put image (x_out and y_out). If x_out or y_out lie outside the image array, 
outputdmage is set to a FILL value. Otherwise, outputdmage is set to the 
proper pixel from thedmage. 

bLwarpdoop performs the same operations as warpdoop. bLwarpdoop, 
however, uses floating point math and calls the bilineardnterpolate (last 
chapter) subroutine to set the final output pixel value. bLwarpdoop pro- 
duces better results than warpdoop. It also takes more time. Use warpdoop 
for quick experiments and bLwarpdoop for presentation results. 

Figure 14.3 shows some results of control point warping. The upper left 
quarter is the input image. The other three quarters show the result of 
picking a control point inside the input image and having the warp routine 
warp it. The objects in the results are bent out of shape. Repeating the 
warping can give an object almost any desired shape (windows the shape of 
circles, triangles, etc.). 

A second form of warping is what I call object warping. Instead of pick- 
ing a control point inside the image array, the user picks the four corners 
of a quadrilateral as shown in figure 14.4. Object warping transforms this 
quadrilateral to a square. The four corners of the quadrilateral can be almost 
anywhere inside or outside the square. The outside the square option is a 
capability that control point warping did not have. 
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Object warping is similar to but simpler than control point warping. Con- 
trol point warping transformed four quadrilaterals to four squares inside an 
image array. Object warping transforms one quadrilateral to one square. 

Listing 14.1 continues with the source code that implements object warp- 
ing. The object.warp subroutine controls the process and calls fulLwarp Joop 
and bi TulLwarpdoop. The inputs to object_warp are the same as with 
warp except it receives the four corners of the quadrilateral (xl, yl through 
x4, y4) instead of the control points, object warp prepares the calls either 
fulLwarp Joop (bilinear == 0) or bi TulhwarpJoop (bilinear == 1). 

fulLwarp Joop performs the same function that warp Joop performed for 
control point warping, i.e., it transforms a quadrilateral to a square. The 
difference is that the loops over i and j in fulLwarp Joop go through an entire 
image array. warpJoop only went through one quarter of the image array. 

bi JulLwarpJoop performs the same operations as fulLwarpJoop except 
it uses floating point math and calls bilinear Jnterpolate for the final pixel 
values, bi JulLwarpJoop is slower, but it produces better results. Again, use 
fulLwarpJoop for experiments and bi JulLwarpJoop for presentation results. 

Figure 14.5 shows some results of object warping. The upper left quarter 
shows the input image with the three other quarters showing results. These 
results are similar to those in Figure 14.3. Notice, however, that each result 
in Figure 14.5 contains FILL values shifted in from outside the input. 

Figures 14.6 and 14.7 show the result of applying warping to complete 
images and illustrates what warping can do. These images show the outcome 
of using control point warping several times. 

While looking at Figures 14.6 and 14.7, turn on your imagination. The 
house appears to be in the middle of an earthquake. We could make a series 
of house images with the warping moved from right to left a little bit in each 
image. If you put one house image in each frame of motion picture film, 
the sequence would look like a house rippling in an earthquake. We could 
make the house look like Jell-O. What we need is a computer fast enough to 
generate 10,000 images and a motion picture camera. This is how they do it 
in Hollywood. 



14.5 Shearing Images 

One application of warping is to shear images. A related article [14.3] showed 
how to shear images. Object warping and bi-linear interpolation can do the 
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Figure 14.7: Another Warped House Image 



same operation without producing jagged lines. Image 14.2 showed how 
object warping can warp an image and pull in FILL values from outside the 
image. This is because object warping permits picking quadrilateral corner 
points outside the image array as shown in figure 14.4. 

Figure 14.8 depicts image shearing as produced by object warping. These 
four image shears are the result of calling the warp program (described later) 
that in turn calls the object.warp routine. The numerical parameters that 
are outside the input image (i.e., less than 0 or greater than the image size) 
cause the image to shear or shift over. 



14.6 Morphing 

Morphing is the term most people use today to describe the melting of one 
object to another. Michael Jackson “morphed” to a panther. A car “mor- 
phed” to a tiger. The Mighty Morphin’ Power Rangers — well that’s another 
story. 

(Funny, as I sit here revising this in late 1998, many people may not 
remember Michael Jackson and the Mighty Morphin’ Power Rangers. Mor- 
phing has become so common that people think it was always there.) 

Morphing is a sequence of images — not a single image. A car becomes 
a tiger by showing a sequence of intermediate images. The transition ap- 
pears magical when there are dozens of images shown every second in a film 
sequence. 

Morphing can be done as an extension to warping. Suppose we wanted 
to morph a dark circle to a bright pentagon. The first step is to produce 
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Figure 14.8: Examples of Image Shearing 



two sequences of images. One sequence would warp the circle to the triangle 
shape. The second sequence would warp the triangle to the circle shape. 
These sequences take care of the transition from one shape to the next. 
Figure 14.9 shows this process. 

The second step is to blend these two sequences into a third sequence. 
The third sequence would be a weighted average of the first two. This third 
sequence would take care of the transition from one gray level to the next. 
Placing one image of the third sequence in each frame of a motion picture 
him produces a smooth morphing. 

Figure 14.10 illustrates the process. The objective here is to morph a 
window to a door. The far left frame of the middle row shows the original 
window. The far right of the middle row shows the final door. 

The top row of Figure 14.10 shows the sequence to warping the original 
window up to the size and shape of the door. Object warping produced these 
by picking a quadrilateral smaller than the image. The output of each step 
was an enlarged window. 

The bottom row of Figure 14.10 shows the sequence to warping the door 
down to the size and shape of the window. Object warping produced these 
by picking a quadrilateral larger than the image. The output of each step 
was a smaller door. 
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oooooo 

Step 1 (warp) 




Step 2 (blend) 



Figure 14.9: Morphing a Black Circle to a White Pentagon 




Figure 14.10: A Morphing Sequence 
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The three frames in the center of the middle row of Figure 14.10 show the 
result of a weighted average. An average is the result of adding two images 
together and dividing by two. A weighted average is the result of adding 
an image to itself several times, adding this result to another image, and 
dividing. 

The frame closest to the original window is the average of two windows 
from the top row and one door from the bottom row. The frame in the center 
of the middle row is the average of one window from the top row and one 
door from the bottom row. The frame closest to the final door is the average 
of two doors from the bottom row and one window from the top row. 

The sequence of frames in the middle row morph the window to the door. 
It would look much better had I used a sequence of 3000 warps and averages 
instead of 3. The procedure is the same, but the more steps between the 
start and the end, the better the effect. 

The professional morphing seen on TV and in the movies has hand tun- 
ing performed by artists. Those sequences are not as straight forward as 
discussed above. Artists take the sequences and manipulate individual pixels 
so they look just right. They also adjust the weighted averages using more 
complicated algorithms. The results show the tender loving care put into 
them. 

The .bat hie shown in listing 14.3 created the image of Figure 14.10. 
The calls to the warp program (described below) created the two warping 
sequences. The calls to mainover (chapter 12) performed the weighted aver- 
ages. The calls to side (chapter 4) pasted all the small images together to 
form the image shown in Figure 14.10. 



14.7 A Warping Application Program 

Listing 14.3 shows the warp program. This is a standalone program that 
performs control point or object warping on images. This program produced 
the images shown in this article, warp is a command line driven program 
that calls either the warp or object _warp subroutines. 
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14.8 Conclusions 

This chapter discussed image warping and morphing. Warping bends or 
warps objects in images. Morphing is an extension of warping that melts or 
morphs one object into another (just like in the commercials). Warping is 
an old technique with its roots in the space program of the 1960’s. The ever 
increasing power and decreasing price of computers brought these techniques 
to Hollywood. They are fun. Experiment with them and turn brick houses 
into Jell-O. 
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Chapter 15 

Basic Textures Operations 



15.1 Introduction 

This chapter will discuss textures and some basic texture operations. Texture 
is a characteristic that is difficult to describe, but you know it when you see 
it. Humans distinguish many objects in images by their textures. The leaves 
on trees and the shingles on a roof may have similar gray levels, but they 
have different textures. A capable texture operator could segment that image 
correctly. 



15.2 Textures 

Figure 15.1 shows a drawing of different textures from a paint program. 
Adjectives that describe the textures include dots, lines, random, regular, 
horizontal, angled, tiled, woven, rough, smooth, etc. Figure 15.2 shows an 
image containing four textures used in the examples later. These textures are 
(clockwise starting in the upper left) a fuzzy carpet, a tightly woven straw 
mat, random grass, and straw. 

One way of describing texture is “things” arranged in a “pattern.” Tex- 
tures are a function of things and patterns — mathematically, texture = 
f(thing, pattern). The thing is a grouping of pixels such as a dot or line. 
The pattern is the arrangement of the things such as a random or regular 
cluster of dots and horizontal or vertical lines. Regular patterns are usually 
man made while random patterns are natural. These ideas about texture all 
make sense, but a commonly used model of texture is lacking. 
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15.3. EDGE DETECTORS AS TEXTURE OPERATORS 
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What we want is an operator that could characterize the things and pat- 
terns that comprise texture. Such an operator would represent a texture by 
a number just as gray levels represent the lightness or darkness of objects. 
We could then use the gray level and edge-based segmentation techniques 
discussed in earlier chapters. Unfortunately, simple operators that work for 
all textures do not exist. There is a collection of operators that work in some 
cases. Edge detectors and difference operators work in certain situations. 

The Hurst operator [15.2] produces good results in many images, but has 
a high computational cost. The common sense comparison approach works 
well in many images, but only isolates one texture per image. 

One bad trait of texture operators is their computations. Several of them 
required many, complex, floating point calculations. There is no way around 
this problem with texture operators. This was an issue in 1993 when I first 
tried to write texture operators. It is not an issue in late 1998 as PCs are 
much more powerful. 



15.3 Edge Detectors as Texture Operators 

Edge detectors can be used as texture operators. This is because a textured 
area has many edges compared with a smooth area. Applying an edge de- 
tector to a texture produces many strong, bright edges while edge detecting 
a smooth area yields nothing. Smoothing the edge detector result gives a 
bright area that can be separated from the dark area that lacked edges. 

Not all edge detectors work well with textures. The four parts of Figure 
15.3 illustrate how the Sobel edge detector (chapter 5) failed to distinguish 
two textures. The upper left quarter of the image contains a tightly woven 
texture. The upper right quarter contains a random grass texture. Beneath 
each texture is the result of the Sobel edge detector. It detected all the edges 
in the two distinctly different textures. The result, however, is two areas 
with similar gray levels. 

The range operator is an edge detector that does work well on some 
textures. It takes the pixels in an nxn area, sorts them by value, and replaces 
the center pixel with the range (the largest pixel value minus the smallest). 

Figure 15.4 shows an example of the range operator (chapter 6) applied 
to a texture. The upper left quarter is the input image. I placed a small 
section of the tightly woven texture of Figure 15.2 into a square of the carpet 
texture from Figure 15.2. The upper right quarter of Figure 15.4 shows the 
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Figure 15.3: An Example of How the Sobel Edge Detector Does Not Work 
Well with a Texture 

result of the range operator applied to the input using a 3x3 area. The range 
operator produced different gray levels for the different textures. The lower 
right quarter shows the result of histogram equalization (chapter 4) applied 
to the upper right quarter. This is not necessary for segmentation, but it does 
help highlight the result. The lower left quarter shows the result achieved by 
segmenting the range output using simple threshold segmentation (chapter 
9). 

Three other related “edge detectors” are the variance, sigma, and skew- 
ness (chapter 6). The standard deviation is the basis for these operators. 
Variance, uses the definition given in [15.1]. That definition of variance takes 
an nxn area, sums the squares of the center pixel - each neighbor, and takes 
the square root of this sum. Equation (15.1) shows this definition of variance. 



variance Russ = \J^2(centerpixel — neighbor ) 2 (15-1) 

If the center pixel differs from its neighbors, this variance will produce 
a large number. This is how it detects edges and produces many edges 
in a texture area. Figure 15.5 shows an example of the variance operator 
applied to a texture. This image has the same format as Figure 15.4. The 
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upper left quarter is the input texture and the upper right quarter is the 
result of the variance operator. Variance produced two different gray levels 
for the different textures. The histogram equalization result in the lower 
right quarter highlights the effect. The lower left corner shows the result of 
segmenting the textures using the variance output. 




Figure 15.5: The Result of Applying the Variance Edge Detector to a Texture 

A different, more classical definition of variance is found in [15.3] and 
shown in equation (15.2). This definition requires two passes through the 
nxn area of the image. The first pass calculates the mean or average pixel 
value of the area. The second pass calculates the variance. This operation 
takes more time than the variance defined in equation (15.1). 

variance Levine = \ Y' (centerpixel — mean) 2 (15-2) 

size of area 

After calculating the variance from equation (15.2), take the square root 
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to find a as shown in equation (15.3). We can use a as a texture measure 
and we will need it to calculate the skewness measure later. 



a = V variance Levine (15.3) 

Listing 15.1 starts with the subroutine that implements the sigma oper- 
ator. This subroutine has the same form as all the operators in this series, 
sigma works on a sizexsize area (3x3, 5x5, etc.). Once inside the main loop, it 
calculates the mean of the sizexsize area. Next, it runs through the sizexsize 
area a second time to sum the square of the difference between each pixel 
and the mean of the area and place this result in the variance variable. The 
final answer, a, is the square root of the variance. 

Figure 15.6 shows an example of the sigma operator applied to a texture. 
Just as in Figures 15.4 and 15.5, the upper right quarter shows the result 
of the sigma operator on the upper left quarter. It is hard to see anything 
in the sigma result. The sigma is almost the square root of variance, so its 
pixel values are much smaller and darker. Histogram equalization, shown in 
the lower right quarter, is necessary before attempting segmentation. Sigma 
produced two gray levels to represent two textures. The result in the lower 
left quarter is the segmentation of the lower right quarter. 

The final “edge detector” type of operator is skewness [15.3]. Equation 
(15.4) shows the formula for skewness. Like the variance of equation (15.2), 
skewness requires two passes through an area to find the mean and then the 
a. After this, calculate skewness using the a. The skewness measure looks at 
the histogram of the nxn area of the image. Skewness measures the degree 
of symmetry in the histogram to see if the out lying points in the histogram 
favor one side or the other. If the histogram is symmetrical, skewness returns 
a low number. If the histogram favors one side or is “skewed” to one side, 
skewness returns a larger number. 

skewness = — — (centerpixel — mean) 3 (15.4) 

a 6 size oj area 

Listing 15.1 next shows the subroutine that implements the skewness 
operator, skewness runs through the image array working on sizexsize areas. 
It makes one pass through the sizexsize area to calculate the mean. The 
second pass through the area calculates the variance value of equation (15.2) 
and the cube variable (the sum of the cube of the difference between each 




230 



CHAPTER 15. BASIC TEXTURES OPERATIONS 






15.4. THE DIFFERENCE OPERATOR 
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pixel and the mean of the area). After the second loop, skewness puts these 
values together as prescribed in equation (15.4) to form the skew answer. 

Figure 15.7 shows the result of the skewness operator. The left half shows 
two synthetic textures. I created the far left texture by setting each pixel to 
a random number from the C rand() function. The right texture is a small 
checkerboard pattern. The two sections on the right half are the results of 
the skewness operator. The far right result is all zeros. The checkerboard 
pattern had a perfectly symmetrical histogram, so skewness returned zero 
everywhere. The histogram of the random pattern was also symmetrical, 
but skewed enough to return many non zero values. It is easy to segment the 
right half of the image. 




Figure 15.7: The Result of Applying the Skewness Operator to a Texture 



15.4 The Difference Operator 

The difference operator [15.3] is similar to edge detectors and can be useful in 
distinguishing textures. Equation (15.5) shows that the difference operator 
is merely the difference between a pixel and another pixel a given size away. 
It works on textures if the size specified matches the size of the pattern in a 
texture. If it matches well, the result is small numbers while other textures 
return larger numbers. The difference operator runs much faster than the 
variance, sigma, and skewness operators shown above and is quite effective 
on certain images. 
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output = absolutevalue(input[i][j ]) — input ([i + size] \j + size]) (15.5) 

Listing 15.1 next shows the two subroutines that implement the difference 
operator. The subroutine adifference sets up size parameters while the dif- 
ference array subroutine performs the math, difference array loops through 
the image array and calculates the difference as stated in equation (15.5). 
Notice how it is easy to vary the size parameter and look for the size of a 
texture. 

Figure 15.8 shows the result of applying the difference operator on two 
distinct textures. The upper left quarter is the tightly woven texture shown 
earlier. The upper right quarter is the loose straw texture from Figure 15.2. 
The two lower quarters of the image contain the results of the difference 
operator. The lower left quarter appears brighter because the texture has 
greater differences in it than the straw texture. The difference operator 
distinguished these textures by producing areas with different gray levels. 




Figure 15.8: The Result of Applying the Difference Operator to a Texture 

A variation of the difference operator is its mean operator [15.3]. This 
first applies the difference operator to an image and then replaces each pixel 
by the mean or average of the pixels in a sizexsize area. Equation (15.6) 



15.4. THE DIFFERENCE OPERATOR 



233 



describes the mean operator. The mean operator smoothes the result of the 
difference operator. 



meariLevine — —. - r Y (pixels of difference array ) (15.6) 

size of area ^ 

The amean subroutine implements the mean operator and is the next rou- 
tine shown in listing 15.1. It calls difference _array to calculate the differences 
in the input image, amean then smoothes the difference array by replacing 
each pixel with the average of the pixels in the surrounding sizexsize area. 

Figure 15.9 shows the result applying the mean operator to the same tex- 
tures processed by the difference operator in Figure 15.8. Note how the lower 
left quarter of Figure 15.9 is fuzzier than the corresponding quarter of Figure 
15.8. This is to be expected because the mean is a smoothing operation. The 
two quarters in the lower half of Figure 15.9 are easily distinguished by their 
gray levels. 




Figure 15.9: The Result of Applying the Mean Operator to the Same Texture 
as in Figure 15.8 
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15.5 The Hurst Operator 

An excellent, but computationally expensive, texture operator is the Hurst 
operator [15.1]. The Hurst operator will process a texture area and return a 
single gray level. The idea is to look at ranges of pixel values in an area, plot 
them, fit the plot to a straight line, and use the slope of that line to measure 
the texture. 

First, lets look at the ranges of pixels in an area. The range operator 
discussed earlier produced one range to describe an entire area. The Hurst 
operator produces several ranges for an area (n ranges for an nxn area). It 
calculates pixel value ranges for pixels that are an equal distance from the 
center pixel. Figure 15.10 shows three example size areas (other examples 
include 9x9, 11x11, etc.). The 7x7 area at the bottom of Figure 15.10 has 
pixel label ’a’ in the center. The pixels labeled ’b’ are all one pixel away from 
the center. The pixels labeled V are the square root of two pixels from the 
center, the ’d’ pixels are two pixels from the center, and so on. The Hurst 
operator calculates a ’b’ range, a ’c’ range, a ’d’ range, on up to the ’g’ range. 

Figures 15.11 and 15.12 illustrate the range calculation. Figure 15.11 
shows two 7x7 image sections. Image section 1 is smooth while image section 
2 is rough. The tables in figure 15.4 show the range calculations. Look at 
image section 1 of figure 15.12 and examine the pixels that are one pixel 
away from the center. The largest value is 115, the smallest is 110, and this 
yields a range of 5. All the range values in the tables were calculated in this 
manner. 

The final phase of the Hurst operator is to plot the distance and range 
values and find the slope of the line. Plot the natural logarithm of the dis- 
tances on the vertical axis and the natural log of the ranges on the horizontal 
axis. This is a Hurst plot. Finally, fit these points to a straight line. The 
slope of the line is the answer. The notes in figure 15.12 state that Hurst 
plot for image section 1 had a slope of 0.99 and image section 2’s slope was 
2.0. Multiply these by a scaling factor of 64 to produce two different gray 
levels that represent two different textures. 

Listing 15.1 next shows the source code that implements the Hurst oper- 
ator. The hurst subroutine will work for the 3x3, 5x5, and 7x7 cases shown 
in figure 15.10. The first section of code sets the x array to the natural log- 
arithm of the distances, hurst loops through the image and finds the ranges 
of pixel values for each pixel class shown in Figure 15.10. Each section of 
code puts the proper pixels into the elements array, sorts this array by calling 
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3x3 case 
c b c 
d b a b d 
c b c 

5x5 case 
f e d e f 
e c b c e 
d b a b d 
e c b c e 
f e d e f 

7x7 case 
h g h 
f e d e f 
h e c b c e h 
g d b a b d g 
h e c b c e h 
f e d e f 
h g h 



Figure 15.10: Three Size Areas for the Hurst Operator 
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Image Section 1 
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Image Section 2 
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Figure 15.11: Two Example Image Sections 
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Image Section 1 

Pixel Class b c d e f g h 

Distance 1 /2 2 /5 /8 3 /10 

Brightest 115 115 110 115 115 115 115 

Darkest 110 110 100 105 105 100 100 

Range 5 5 10 10 10 15 15 

Plot ln(range) vs In (distance) , slope =0.99 



Image Section 2 

Pixel Class b c d e f g h 

Distance 1 /2 2 /5 /8 3 /10 

Brightest 100 115 110 130 130 135 145 

Darkest 95 100 90 100 85 85 85 

Range 5 15 20 30 45 50 60 

Plot ln(range) vs In (distance) , slope = 2.0 

Figure 15.12: Values Calculated by the Hurst Operator 
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sort .elements, and puts the range in the prange variable, hurst fits the data 
to a straight line by calling the fit routine. The last step sets the output 
image to the slope of the line scaled by 64. 

fit is a general purpose routine that fits data to a straight line. I took it 
from chapter 14 of “Numerical Recipes in C.” [15.2] 

Figure 15.13 shows the result of applying the Hurst operator to the same 
texture used in Figures 15.4, 15.5, and 15.6. The upper left quarter is the 
input image and the upper right quarter is the result of the Hurst operator. 
The lower right is the result of smoothing the Hurst output with a low pass 
filter. Smoothing blurs the result and makes segmentation easier. The lower 
left quarter is the final segmentation result. 




Figure 15.13: The Result of Applying the Hurst Operator to a Texture 

Figure 15.14 shows an attempt at using the Hurst operator on a house 
image. The image in the left half of Figure 15.14 has several distinct textures 
such as trees, roof shingles, and bricks. The right half of Figure 15.14 shows 
the result of the Hurst operator. This looks like an edge detector and fails 
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miserably as a texture segmentation operator. The compare operator in the 
next section offers some hope. 




Figure 15.14: The Failed Result of Applying the Hurst Operator to the House 
Image 



15.6 The Compare Operator 

A final texture operator uses the common sense approach of comparing one 
texture in the image against all textures. Select a small area in an image 
that contains one sample texture (such as the brick texture in left half of 
Figure 15.14). Move this small texture area through the entire image. At 
each pixel, subtract the image from the sample texture and use the average 
difference as the output. If the texture in the image is similar to the sample 
texture, the output will be small. If the texture in the image is different from 
the sample texture, the output will be large. 

Listing 15.1 ends by showing the source code that implements the compare 
operator. The first part of compare mallocs the small array to hold the sample 
texture. Next, it copies the part of the input image that contains the sample 
texture into the small array. The main loop of compare sums the absolute 
value of the difference between the small array and the input image. The 
output is set to the sum (big) divided by the area (size*size). 

Figure 15.15 shows an example of the compare operator. The upper left 
quarter shows the input image comprising the tightly woven texture next to 
the straw texture. The upper right quarter shows the result of taking a 3x3 
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area of the woven texture and comparing it to the input image. The result 
is dark and difficult to see. The lower right quarter shows the outcome of 
performing histogram equalization on the dark result. Now we can clearly see 
how the straw area produced a brighter output. This means that the texture 
in the straw area is not similar to the sample texture taken from the tightly 
woven area. The lower left quarter shows the segmentation result. The 
compare operator successfully produced different gray levels to distinguish 
two textures. 




Figure 15.15: The Result of Applying the Compare Operator to a Texture 



Figure 15.16 shows another example of the compare operator. This ex- 
ample illustrates both the power and the weakness of the compare operator. 
The left half of Figure 15.16 shows the house image. The right half shows 
the result of taking a 5x5 area of the brick texture and comparing it with the 
house image. The areas corresponding bricks are the darkest because their 
texture matches the sample brick area. The compare operator did a good 
job of separating the bricks from the other textures. Note the weakness of 
the compare operator. It lumped all the other textures (roof, trees, windows, 
shutters) into one category. The compare operator can only find one texture 
in an image. 
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Figure 15.16: The Result of Applying the Compare Operator to the House 
Image 

15.7 An Application Program 

Listing 15.2 shows an application program that uses the texture operators 
with entire image hies. It has the same form as the other application pro- 
grams presented in this text. 

15.8 Conclusions 

This chapter described textures and several operators that help distinguish 
textures. We do not have a good definition of texture and any universally 
applicable texture operators. The operators presented here work well in 
certain situations. Experiment with them and experiment with the other 
pre-processing and post-processing operators from the series. 
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Chapter 16 

Random Dot Stereograms 



16.1 Introduction 

This chapter describes random dot stereograms and provides the source code 
so you can make your own. Stereograms are those strange 3-D pictures 
you see on books, calendars, and t-shirts everywhere. You focus past them 
and all the dots form what appears to be objects with surprising depth. 
Given different names by different people, these 3-D pictures are all similar 
in appearance and construction. Stereograms are a part of image processing 
because making a stereogram involves taking processing an existing image it 
to give it a new appearance. 



16.2 Stereogram Basics 

Let’s first discuss why stereograms look the way they do. An easy way to do 
this is with text figures (we’ll move on to dots later). One key to stereograms 
is divergent viewing or focusing on a point behind the image. Figure 16.1 
shows that when two eyes (RI=right eye, LI=left eye) focus on a point x 
behind the picture, they see two different things (LI sees a and RI sees b). 
The brain mixes these two into a single image. Stereograms use this mixing 
to produce depth in the mind. 

Figure 16.2 shows another basic concept in stereograms — the repeating 
pattern. The pattern 1234567890 runs from left to right and repeats itself for 
the width of the image. The repeating pattern has four properties. (1) The 
pattern runs horizontally, so orientation must be correct (you cannot turn 
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focus point 
x 



picture 
•a b 



LI RI 



Figure 16.1: Divergent Viewing 

focus point 
x 



123456789012345678901234567890 



LI RI 



Figure 16.2: The Repeating Pattern 



the image sideways). (2) There are a fixed set of elements in the pattern. 

(3) All the elements in the pattern are the same size (fixed font in this case). 

(4) The width of the pattern must be less than the distance between your 
eyes. Property (4) is critical when making a stereogram’s final output. Most 
people’s eyes are a little more than an inch apart, so one inch is a good width 
for a repeating pattern. Display screens show 60-70 dots per inch while laser 
printers give 300 dots per inch. These two output devices require different 
pattern widths. 

Figure 16.3 illustrates how a repeating pattern produces depth. The top 
part of figure 16.3 shows that a T was deleted from the pattern. The left 
and right eyes, viewing the image divergently, are looking at two different 
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Deleted a 1 from here 



12345678902345678901234567890 
so the brain adapts 



1234567890 

1 

2345678901234567890 



LI RI 



Figure 16.3: Deleting an Element from the Pattern 



places on the image. The right eye sees the 'V in the pattern while the left 
eye does not (it was deleted), so the brain adapts. The brain feels that the 
’1’ is present for the left eye, so the brain tucks the ’1’ behind the ’2’ on 
the left side. This brings the right side of the image closer and creates an 
illusion of depth. Shortening the pattern by deleting an element brought the 
image closer to the viewer. If you are viewing these images on a screen, use 
the viewing software to reduce or increase the size of the images for optimal 
viewing. 

Figure 16.4 shows how to push the image away from the viewer by insert- 
ing an element into the pattern. The top part shows that an ’A’ was inserted. 
The right eye sees the ’A’, the left eye does not, so the brain adapts. The 
brain reasons that the left eye did not see the ’A’ because the ’A’ was tucked 
behind the ’8’. The right side of the image becomes farther away. Length- 
ening the pattern by inserting an element pushed the image away from the 
viewer. 

Figure 16.5 combines deletion and insertion to pop an object out of the 
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Inserted an A here 



1234567890 12345678A901234567890 
so the brain adapts 



901234567890 

A 

123456789012345678 



LI RI 



Figure 16.4: Inserting an Element into the Pattern 

background. The top part of the figure shows that a’l’ was deleted and an 
’A’ was inserted. The two eyes see different things, so the brain adapts by 
tucking the T’ behind the ’2’ and tucking the ’A’ behind the ’8’. The center 
section appears farther away than the ends (the object drops back into the 
background). 

Shortening and lengthening the pattern by 2, 3, 4, etc. creates other 
depth levels (2, 3, 4, etc.). Keep the length of the repeating pattern about 
twice as big as the number of depth levels. 

Figure 16.6 puts these concepts together into a character stereogram using 
the repeating pattern 0123456789. On the fourth line the pattern is shortened 
by deleting an ’8’ and then lengthened by inserting an ’A’. When viewed 
divergently, you see a rectangle popping out of the center of the image. 

Figure 16.7 shows the result of the final step in a random character stere- 
ogram. The viewer again sees a rectangle popping out of the background. 
Figure 16.7 is the result of a line by line random character substitution ap- 
plied to figure 16.6. For example, take the first line of figure 6, substitute an 
’R’ for each ’O’, an ’E’ for each T, and so on using the substitution values 
shown in figure 16.8 to produce the first line of figure 16.7. A random number 
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Deleted a 1 Inserted an A 

I I 

I I 

12345678902345678A90 1234567890 



so the brain adapts 



1234567890 901234567890 

1 A 

2345678 



LI RI 



Figure 16.5: Deleting and Inserting to Create an Object 

012345678901234567890123456789012345 

012345678901234567890123456789012345 

012345678901234567890123456789012345 

0123456790123456790123456790A1234567 

0123456790123456790123456790A1234567 

0123456790123456790123456790A1234567 

0123456790123456790123456790A1234567 

0123456790123456790123456790A1234567 

0123456790123456790123456790A1234567 

0123456790123456790123456790A1234567 

012345678901234567890123456789012345 

012345678901234567890123456789012345 

012345678901234567890123456789012345 

012345678901234567890123456789012345 



Figure 16.6: A Character Stereogram 
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REPGGXRPNRREPGGXRPNRREPGGXRPNRREPGGX 
BZCNFWLQ I JBZCNFWLQ I JBZCNFWLQ I JBZCNFW 
JBBHAWDYDCJBBHAWDYDCJBBHAWDYDCJBBHAW 
WSJRXJHGZWSJRXJHGZWSJRXJHGZWYSJRXJHG 
AJQKCKLZAAJQKCKLZAAJQKCKLZAAYJQKCKLZ 
SSQCTYDTASSQCTYDTASSQCTYDTASMSQCTYDT 
EDRWUDXZFEDRWUDXZFEDRWUDXZFEUDRWUDXZ 
RIFSUQHCSRIFSUQHCSRIFSUQHCSRKIFSUQHC 
HRWTFDUKFHRWTFDUKFHRWTFDUKFHFRWTFDUK 
ZPDPYZKZVZPDPYZKZVZPDPYZKZVZBPDPYZKZ 
I SFRFQGVPMI SFRFQGVPMI SFRFQGVPMI SFRFQ 
KLASOLWJXPKLASOLWJXPKLASOLWJXPKLASOL 
WEAAF JEQ I OWEAAF JEQ I OWEAAF JEQ I OWEAAF J 
WXFA I GA YRUWXF A I G A YRUWXF A I G A YRUWXF A I G 



Figure 16.7: A Random Character Stereogram 



generator created these substitution values. The transition from figure 16.6 
to 16.7 used a different set of substitution values for each line. 

Figure 16.9 shows another example. First is the depth image with 0 being 
the background and 2 being closest to the viewer. The bottom is the result 
of a line by line random character substitution. 

Now we have the basics of stereograms. Start with a depth image choose 
an appropriate pattern length (less than the distance between your eyes and 
twice as big as the number of depth levels) ; shorten and lengthen the pattern 
length according to changes in depth; and produce a stereogram with line 
by line random substitution. We also know that we can make character 
stereograms which are easy to e-mail. 

Extending these concepts to dots vice characters is simple with the dif- 
ference being in the random substitution. Dot stereograms have only two 
values (1 and 0 for white and black). If the output of the random number 
generator is odd, substitute a 1 and substitute a 0 otherwise. In figure 16.8 
the G substitutes for both a 3 and a 4. In dot stereograms, a 1 will substi- 
tute for about half the values and a 0 will substitute for the others. Some 
stereograms have colored dots. If there are four colors, the random number 
is modulused by 4 (producing 0, 1, 2, and 3) with the result substituting for 
the four color values in the pattern. 
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0 -> R 

1 -> E 

2 -> P 

3 -> G 

4 -> G 

5 -> X 

6 -> R 

7 -> P 

8 -> N 

9 -> R 

Figure 16.8: Substitution Values for the First Line of Figures 16.6 and 16.7 

16.3 Stereogram Algorithms 

The next three figures give the algorithms for turning a depth image into a 
random dot or character stereogram. Figure 16.10 shows the main processing 
loop. These 12 steps repeat for every line in the depth file. In step 2, initialize 
the pattern according to the pattern length. If the pattern length is 100, place 
0 through 99 (just one time) in the pattern array. Steps 4 through 8 loop 
through each element or pixel in a depth line. The values of this pixel and 
last pixel cause the pattern to grow or shrink. We perform the no change 
(copy the current element of the pattern array to the processed pattern array) 
on every pixel in the depth line. After saving this line of the processed 
pattern, perform random substitution and save the result. Processing and 
substitution occur line by line with each line being independent. 

Figure 16.11 shows how to shorten a pattern by deleting size elements (size 
can by 1, 2, 3, etc.). First, save the input pattern array to a temp_pattern 
and set new width to the pattern width less size. Next, increase the pattern’s 
index by size to skip over those elements to delete. Steps 4 through 6 copy the 
temp.pattern back to the pattern with index skipping over elements. Step 7 
shortens the current pattern width. 

Figure 16.12 shows how to lengthen a pattern by inserting size elements. 
First, copy the pattern to a temp.pattern and empty the pattern. Then, 
put the new element (s) at the front of the pattern, increase the width, and 
copy the old pattern onto the end of the pattern. For example, if pattern 
is 0123456789, and size is 2, put AB at the start of the pattern and copy 
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000000000000000000000000000000000000 
000000000000000000000000000000000000 
000000000000000000000000000000000000 
00000000 1111111111111 110000000000000 
00000000 1111111111111 110000000000000 
00000000 1111111111111 110000000000000 
00000000 1111111111111 110000000000000 
000000001111111112222222222222220000 
000000001111111112222222222222220000 
000000001111111112222222222222220000 
000000000000000002222222222222220000 
000000000000000002222222222222220000 
000000000000000002222222222222220000 
000000000000000002222222222222220000 
000000000000000002222222222222220000 
000000000000000000000000000000000000 
000000000000000000000000000000000000 
000000000000000000000000000000000000 



REPGGXRPNRREPGGXRPNRREPGGXRPNRREPGGX 
BZCNFWLQ I JBZCNFWLQ I JBZCNFWLQ I JBZCNFW 
JBBHAWDYDCJBBHAWDYDCJBBHAWDYDCJBBHAW 
WS JRX JHGZWS JRX JHGZWS JRXY JHGZWS JRXY JH 
AJQKCKLZAAJQKCKLZAAJQKCYKLZAAJQKCYKL 
SSQCTYDTASSQCTYDTASSQCTMYDTASSQCTMYD 
EDRWUDXZFEDRWUDXZFEDRWUUDXZFEDRWUUDX 
RIFSUqHCSRIFSUqHCRIFSUqHCRIFSUqHKMCR 
HRWTFDUKFHRWTFDUKHRWTFDUKHRWTFDUFJKH 
ZPDPYZKZVZPDPYZKZZPDPYZKZZPDPYZKBNZZ 
ISFRFqGVPMISFRFqGMISFRFqGMISFRFqVOGM 
KLASOLWJXPKLASOLWPKLASOLWPKLASOLTXWP 
WEAAFJEq I OWEAAF JEOWEAAF JEOWEAAF JZPEO 
WXFA I GAYRUWXF A I G AUWXF A I GAUWXF A I GEI AU 
JKZTV JGKWX JKZTV JGX JKZTV JGX JKZTV JKEGX 
LRAXGLMTB I LRAXGLMTB I LRAXGLMTB ILRAXGL 
BDDNDODXEUBDDNDODXEUBDDNDODXEUBDDNDO 
CKVRJBFRJPCKVRJBFRJPCKVRJBFRJPCKVRJB 



Figure 16.9: A Depth Image and Random Character Stereogram Image 




16.3. STEREOGRAM ALGORITHMS 



251 



1 . Read a line from the depth file 

2. Initialize the pattern 

3. last_pixel = depth_line [0] 

4. Loop through the depth_line j=0, width 

5. this.pixel = depth_line [j] 

6. If this.pixel > last_pixel 
shorten the pattern 

7. If this_pixel < last_pixel 
lengthen the pattern 

8. Perform no change to the pattern 

9. Save the processed pattern 

10. Perform random substitution 

11. Save the random pattern 

12. go back to 1 until you've read the entire depth file 



Figure 16.10: The Stereogram Processing Loop 
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1 . Copy the pattern to a temp_pattern 

2. new.width = cuurent_width - size 

3. index = (index + size) modulus current_width 

4. Loop for new_index = 0,new_width 

5. pattern [new_index] = temp_pattern [index] 

6. index = (index + 1) modulus current .width 

7. current.width = new.width 

8. index = 0 



Figure 16.11: The Shorten Pattern Algorithm 

0123456789 onto the end producing AB1234567890. The max.width variable 
points to the last element added to the pattern (’B’ in this example). The 
next time we insert an element into the pattern, max width will tell us to 
add a ’C’, then a ’D’, and so on. 



16.4 Source Code and Examples 

Listing 16.1 shows the source code for the cstereo program that makes ran- 
dom character stereograms like is figure 16.9. The depth, processed pattern, 
and stereogram images are kept in text files so all I/O is with fgets and 
fputs. The main while processing loop implements the algorithm of figure 
16.10, and the functions shorten _pattern and lengthen pattern do the same 
for figures 16.11 and 16.12. The other functions are straightforward. Note 
how the function get _random_values contains several different ways (ifdef’ed 
out) to produce random substitution values. 

Run cstereo with a command line like: 
cstereo 10 36 dhle.txt shle.txt pphle.txt 

where 10 is the pattern width, 36 the width of the text in the hies, and the 
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1 . Copy pattern to a temp_pattern 

2. Blank out the pattern 

3. Put ’size’ new elements in pattern 

4. new_width = current_width + size 

5. Copy temp_pattern onto the end of pattern 

6. current_width = current .width + size 

7. max.width = max.width + size 

8. index = 0 



Figure 16.12: The Lengthen Pattern Algorithm 



remaining parameters the names of the depth, stereogram, and processed 
pattern files. 

Listing 16.2 shows the source code for the pstereo program that makes 
random dot stereograms and places them in gray scale image hies. This 
program and cstereo are the same except for the type of data they process. 
pstereo uses the image I/O routines used by the other image processing pro- 
grams in this text. 

Run pstereo with a command line like: 
pstereo 100 dhle.tif shle.tif pphle.tif 

Figure 16.13 is a gray scale depth hie. The background is at level 0 while the 
squares are at levels 2, 4, 5, and 8. Figure 16.14 is a random dot stereogram 
that pstereo produced from Figure 16.13 using a pattern length of 100. The 
image is 400x400 pixels printed at 4”x4” so the pattern length of 100 pixels 
translates to 1”. 

There are several ways to create depth hies. Commercial paint and graph- 
ics programs can generate gray scale TIFF hies. Use these to set the back- 
ground to all black (0) and the objects to other levels. Take care as some 
programs make gray shades by setting black pixels next to white ones. These 
do not work well. I use the pattern program discussed briehy earlier in this 
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Figure 16.13: A Simple Depth File Image 
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Figure 16.14: A Random Dot Stereogram from Figure 16.13 
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book. 

Figure 16.15 is another random dot stereogram. What’s in it? 




Figure 16.15: A Random Dot Stereogram 



16.5 Colorfield Stereograms 

A popular variation of the random dot stereograms presented above is the 
colorfield stereogram. Instead of replacing the processed pattern with random 
substitutions, colorfield stereograms use special patterns from a colorfield. 

Figure 16.16 shows a colorfield image. It has a boy image repeated over 
and again. The boy image is a special pattern that will make up the sub- 
stitutions when creating a stereogram. There is nothing special about the 
the boy image. What matters is that it has a set width like the 0 through 9 
sequence shown earlier. 
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Figure 16.16: A “Colorfield” Image of Boys 
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Colorfield stereograms are different when the stereogram procedure calls 
for lengthening the pattern to create the illusion of depth. Items added to the 
pattern must come from the special pattern — the boy in this case. Figure 
16.17 shows a resulting stereogram taken from Figure 16.16. 




Figure 16.17: A Colorfield Stereogram from Figure 16.16 

Figures 16.18 through 16.19 show another colorhed stereogram example. 
Figure 16.18 is the input special pattern image. Figure 16.19 is the input 
depth hie, and Figure 16.20 is the final result. 

Colorfield stereograms contain the same constraints as random dot stere- 
ograms. The pattern width (here the width of the boy and the width of the 
house) must be a little less than the distance between the viewer’s eyes. The 
creator must consider the output device and the dots per inch in the image, 
etc. 

The principles of colorfield stereograms also apply to the character stere- 
ograms shown earlier. Figure 16.21 shows a simple depth hie. Figure 16.22 
shows the final result of a character colorfield stereogram. This example used 
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Figure 16.18: A Colorfield Image of Houses 
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Figure 16.19: A Depth Image 
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Figure 16.20: The Stereogram from Figures 16.18 and 16.19 
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00000000000001111111111111110000000000000000000000000000000 
00000000000001111111111111110000000000000000000000000000000 
0000000000000 11111111111111 10000000000000000000000000000000 
0000000000000 11111111111111 10000000000000000000000000000000 
00000000000001111111112222222222222220000000000000000000000 
00000000000001111111112222222222222220000000000000000000000 
00000000000001111111112222222222222220000000000000000000000 
00000000000000000000002222222222222220000000000000000000000 
00000000000000000000002222222222222220000000000000000000000 
00000000000000000000002222222222222220000000000000000000000 
00000000000000000000002222222222222220000000000000000000000 
00000000000000000000002222222222222220000000000000000000000 
00000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000 



Figure 16.21: A Character Depth File 



the letters “writecode” as the special repeating pattern (just like the boy and 
house above). This has a pattern length of 9, so if printed at 10 characters 
per inch, it is easy to view and see the depth. 

Figure 16.22 illustrates the differences in colorheld stereograms. Shorten- 
ing a pattern is simple and is the same as in random dot stereograms. The 
algorithm removes a letter of the pattern. The change is when lengthening 
the pattern. The inserted element cannot be just any character (in earlier 
examples an A was inserted into the 0 though 9 pattern). The inserted el- 
ement must be from the special pattern (in this case a letter in the pattern 
writecode) . 

Listings 16.3 and 16.4 shows the scstereo and spstereo programs. These 
differ from cstereo and pstereo shown earlier only in the routines that lengthen 
the pattern and make the final substitutions. These new programs use a 
s .lengthen _patten and a special-substitution routine vice the former lengthen .pattern 
and random-substitution routines. These new routines ensure that only ele- 
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writecodewritcodewritcodewriitcodewriitcodewriitcodewriitco 

writecodewritcodewritcodewriitcodewriitcodewriitcodewriitco 

writecodewritcodewritcodewriitcodewriitcodewriitcodewriitco 

writecodewritcodewritcodewriitcodewriitcodewriitcodewriitco 

writecodewritcodewritcdewritcdewritcdodewritcdodewritcdodew 

writecodewritcodewritcdewritcdewritcdodewritcdodewritcdodew 

writecodewritcodewritcdewritcdewritcdodewritcdodewritcdodew 

writecodewritecodewritodewritodewritocodewritocodewritocode 

writecodewritecodewritodewritodewritocodewritocodewritocode 

writecodewritecodewritodewritodewritocodewritocodewritocode 

writecodewritecodewritodewritodewritocodewritocodewritocode 

writecodewritecodewritodewritodewritocodewritocodewritocode 

writecodewritecodewritecodewritecodewritecodewritecodewrite 

writecodewritecodewritecodewritecodewritecodewritecodewrite 

writecodewritecodewritecodewritecodewritecodewritecodewrite 

writecodewritecodewritecodewritecodewritecodewritecodewrite 

writecodewritecodewritecodewritecodewritecodewritecodewrite 

writecodewritecodewritecodewritecodewritecodewritecodewrite 

writecodewritecodewritecodewritecodewritecodewritecodewrite 



Figure 16.22: A Character Colorfied Stereogram 
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ments from the special pattern are used. 

16.6 Conclusions 

This chapter has described how stereograms work and shown how to make 
your own. There are many ways to experiment with these. Filter the depth 
files to blur or round off the edges of objects. Try making depth hies with 
different commercial packages. Use different pattern lengths and output de- 
vices. This is a fun topic and making stereograms can become more addic- 
tive than playing Doom. The cstereo program allows you to make character 
stereograms that you can e-mail. Send hidden messages through the mail, 
experiment, and have fun. 



16.7 Reference 

16.1 “Hidden Images: Making Random Dot Stereograms,” Bob Hankinson, 
Alfonso Hermida, Que Corporation, 1994. 




Chapter 17 

Steganography: Hiding 
Information 

17.1 Introduction 

Steganography is the art of hiding information. It includes techniques to hide 
an image, a text hie, and even an executable program inside a “cover” image 
without distorting the cover image. This paper will discuss the basic ideas of 
steganography and show how to hide text on an image via watermarking and 
hide an image in an image. Source code will be presented to implement these 
techniques. Extensions to these ideas are also available for those interested 
in augmenting the code shown. Further information on steganography is 
available in [17.1] and related web sites. 

17.2 Hidden Writing 

The word steganography comes from the Greek and literally means “hidden 
writing.” People have used steganography through the centuries to hide 
messages. The messages are hidden in plain sight, because they are visible 
to people who know where to look. 

Consider the sentence “Where real interesting technical exchanges can 
overcome dull entertainment.” 

The first letter of each word spells the message “write code.” This is not 
hidden well. Better hiding methods use the second or third letter of each 
word or the first letter of the first word, second letter of the second word, 
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etc. 

Steganography and cryptography are closely related. Cryptography scram- 
bles a message to produce something that looks scrambled. The “write code” 
example could be scrambled to be “xsjuf dpef” (replace each letter with the 
letter that follows it in the alphabet). The scramble sometimes encourages 
prying eyes who see it as a challenge to unscramble. Steganography instead 
hides a message in a cover message. The result looks like something in- 
nocent, so prying eyes often dismiss it. Lawyers and libertarians debate if 
steganography is close enough to cryptography to regulate its use. To date, 
steganography remains unregulated. 



17.3 Watermarking 

A watermark adds information to a document or image by placing a logo or 
seal in plain sight. The watermark protects the owner’s rights by showing 
ownership. TV broadcasters commonly do this by placing their logo in a 
corner of the broadcast picture. A watermark can be hidden in an image. 
Hiding the watermark does not change the appearance of the image. This 
protects the owner’s rights, without disturbing the image. 

Figures 17.1 through 17.4 show an example of hiding a watermark. Figure 
17.1 shows a boy and Figure 17.2 shows a watermark. The watermark is white 
words on a black background. It is possible to use more complex watermarks, 
but white on black simplifies the program. 

Figure 17.3 is the result of laying the watermark on top of the boy image. 
A value of 20 was added to each pixel of the boy image where the watermark 
image was white. This example did not hide the watermark. 

Figure 17.4 shows the result of hiding the watermark on the boy image. 
A value of 2 was added to each pixel of the boy image where the watermark 
image was white. This small increase is not visible to the casual observer. 

It is simple to recover the watermark by subtracting the original boy 
image (Figure 17.1) from Figure 17.4. 

Listing 17.1 shows the source code that hides a watermark in an image 
and recovers it. The first part of listing 17.1 is the hiding program. After 
interpreting the command line, the code ensures the images are the same 
size, and allocates two arrays to hold the images. The hiding operation adds 
a factor to the image when the watermark image is non-zero. The last few 
lines of code write the result to a hie and free the memory allocated for the 
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Figure 17.1: The Original Boy Image 
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Figure 17.2: The Watermark Image 
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Figure 17.3: Overlaying the Waterm 




Figure 17.4: Hiding the Watermark on the Boy Image 
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image arrays. 

It is easy to extract the watermark from the image. Use the mainas 
program from chapter 8 to subtract the original from the image with the 
hidden watermark. 



17.4 Hiding Images in Images 

Steganography enables hiding an image in another image. A message image 
hides in a cover image. Hiding alters the cover image, but the alterations are 
too slight to see. The process permits recovering the message image later, 
and the recovered message image matches the original exactly. 

This is possible because images contain too much information. Common 
eight-bit gray scale images have 256 shades of gray. People can distinguish 
only about 40 shades of gray. The extra gray shades are useless. The same 
is true for color images. Images that use 24 bits per pixel have 16 million 
possible colors — too many to be useful. 

Eight-bit gray scale images have more bits that are needed. Steganogra- 
phy uses the unneeded bits to hide the message image. Steganography stores 
the bits from the message image in the least significant bits of the cover im- 
age. No one can see the difference in the altered cover image, because no one 
can tell the difference between a 212 and a 213. 

Figure 17.5 shows an example of how three pixels from a message image 
hide in a cover image. The first part of the figure shows the three pixels from 
the message image. The second part of the figure shows three rows of eight 
pixels from the cover image. The last part of the figure shows the same three 
rows of eight pixels after the three message image pixels were hidden. The 
least significant bits of the cover image are holding the message image pixels. 

The pixel 99 from the cover image has bits 0110 0011. To hide the 0 
(the first bit) requires clearing the least significant bit of the first pixel of 
the cover image. The 90 pixel remains 90 because its least significant bit 
is already a 0. The next two bits of the message image pixel are 1, so set 
the least significant bit of the next two pixels in the cover image. The 82 
becomes an 83, and the 89 remains an 89. This process continues as every 
pixel in the cover image has its least significant bit cleared or set depending 
on the bit values of a pixel in the message image. 

There is an eight-to-one limitation in this process. Each pixel in the 
message image has eight bits. Therefore, it needs one bit from eight different 
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Three pixels from message image 

- 99 
-103 
-105 

Three by eight pixels from cover image 

- 90- 82- 88-115-148-155-126- 90- 
-119-103- 80- 76- 99-131- 91- 43- 
-164-120- 85- 63- 59- 80-120- 91- 

Three by eight pixels from cover image 
after hiding the message in the image pixels 

- 90- 83- 89-114-148-154-127- 91- 
-118-103- 81- 76- 98-131- 91- 43- 
-164-121- 85- 62- 59- 80-120- 91- 



Figure 17.5: Hiding Message Image Pixels in a Cover Image 




1 7.4. HIDING IMAGES IN IMAGES 



271 



pixels in the cover image. The cover image must be eight times wider than 
the message image. 

Figures 17.6 through 17.9 illustrate hiding a message image in a cover 
image. Figure 17.6 is the message image and Figure 17.7 is the original cover 
image. Figure 17.8 is the cover image after hiding the message image in 
it. Figures 17.7 and 17.8 are indistinguishable by visual inspection. The 
difference becomes apparent only when examining the pixel values like in 
Figure 17.5. Many of the pixel values of Figure 17.8 are one-off those in 
Figure 17.7. 




Figure 17.6: The Cover Image 



Figure 17.9 shows the message image after uncovering it from Figure 17.8. 
Figures 17.6 and 17.9 are exactly alike. The hiding and uncovering process 
did not alter the message image. 

Listing 17.2 shows the source code that produced Figures 17.6 through 
17.9. The listing starts with the main program that calls the subroutines to 
either hide or uncover a message image. This interprets the command line, 
ensures the input images exists, and checks their dimensions. The dimensions 
are critical. 

Further down in listing 17.2 shows the subroutines hide_image and hide_pixels. 
The hide_image routine reads the message and cover images, calls the hide_pixels 
routine, and writes the result to the cover image hie. The h.counter loop runs 
through the width of the message image. The main calling routine ensured 
that the cover image is eight times wider than the message image. 

The hide_pixels routine does most of the work in the hiding operation. It 
must determine the value of every bit in every pixel in the message image. 

It must then set or clear the least significant bit of every pixel in the cover 
image accordingly. The routine uses two mask arrays to determine and alter 
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Figure 17.8: The Cover Image with the Message Image Hidden In It 
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Figure 17.9: The Unhidden Message Image 
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bits. The loop over i covers all the rows of the message and cover images. 
On each row, the loop over j examines each of the eight bits in the message 
image’s pixel. The code then sets or clears the least significant bit of the 
corresponding pixel of the cover image. 

The if(lsb) code is necessary because some images place the least sig- 
nificant bit first while others place it last (the old Intel and Motorola bit 
order issue). Depending on the bit order, the subroutine uses either maskl 
or mask2 to set or clear bits. 

Listing 17.2 also shows the subroutines uncover image and uncover .pixels. 
These reverse the hiding process, so they are similar to the hiding. The 
uncover image routine reads the cover image, calls uncover .pixels for every 
pixel in the image, and writes the recovered message image to disk. 

The uncover .pixels routine does most of the work. It must determine if 
the least significant bit of each pixel in the cover image is 1 or 0. It then uses 
these bits to build up the eight bits in every pixel in the message image. The 
loop over i runs through every row in the images. The loop over j looks at 
eight pixels in the message image. If a pixel is odd, its least significant bit is 
1, so the corresponding bit in the cover image must be set using the maskl 
bit mask. Clearing bits is not necessary because the new .message variable 
was set to 0x00 prior to the loop over j . 



17.5 Extensions 

There are several extensions to the concepts presented here such as increasing 
the storage efficiency and hiding executable programs and text in images. 
The most obvious limitation to the image hiding shown earlier is the cover 
image must be eight times wider than the message image. This means using 
a narrow message image (Figure 17.6) and a wide cover image (Figure 17.7). 

This ratio can be reduced to three to one. Instead of using the least 
significant bit of the cover image, use the two least significant bits. The 
cover image may change from gray shade 128 to 131 when hiding the message 
image. People cannot see that. The other part of increasing efficiency is to 
reduce the message image from eight-bit pixels to six-bit pixels. This means 
64 shades of gray instead of 256. People can only see 40 shades of gray, so 
64 is plenty. The six-bit pixels in the message image are hidden in two bits 
in the cover image. Hence the three to one ratio. Implementing this scheme 
would require changes in the routines shown in listing 17.2. 
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Steganography enables hiding executable programs inside images. In the 
previous discussion, the message image was a series of eight-bit values. An 
executable program is also a series of eight-bit values. The least significant 
bits of the cover image can hold the bits of the executable program. The cover 
image must contain eight times more pixels than the executable has bytes 
(four times more pixels if you use the two least significant bits as explained 
earlier). Uncovering the executable program from the cover image is just like 
uncovering the message image. 

In the same manner, the cover image can hide a text file. The text file 
is a series of eight-bit bytes. The least significant bits in the cover image 
can hide the eight-bit text bytes. The cover image must contain eight times 
more pixels (or four times) than the text message. This use of steganography 
allows you to hide a message in an image, send the image to a friend (ftp or 
web site), and have them read it. The whole world can see the image without 
reading the message or even suspecting a message exists. 

17.6 Conclusions 

Steganography works as a technique to hide information in plain sight. Wa- 
termarks and copyrights can be placed on an image to protect the rights of its 
owner without altering the appearance of the image. Almost like magic, im- 
ages, executable programs, and text messages can hide in images. The cover 
image does not appear altered. People look at the cover image and never 
suspect something is hidden. Your information is hidden in plain sight. 



17.7 Reference 

17.1 “Exploring Steganography: Seeing the Unseen,” Neil F. Johnson, Sushil 
Jajodia, Computer, February 1998, pp. 26-34., 
http :/ /patriot . net / j ohnson / Steganography. 
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Chapter 18 

Command-Line Programming 



18.1 Introduction 

This chapter will discuss using DOS .bat hies. The previous chapters all 
included stand-alone application programs that applied image processing op- 
erators to entire image hies. This chapter will show how to sequence these 
operators in a .bat hie program. The same principles apply to writing UNIX 
scripts. I do not cover UNIX scripts here, but UNIX users will understand 
how to apply the same ideas to that hne system. 

18.2 Batch Programming with .bat Files 

Previous chapters included programs that processed entire image hies. These 
programs were all command-line driven. Command-line programs can be 
difficult to use because you must remember the obscure command sequence. 

A signihcant advantage of command-line programs is the user can call 
them from a .bat hie. This is good because we often need to perform more 
than one operation on an image. There is usually pre-processing, processing, 
and post-processing as well as repetitive and comparative processing. 

A .bat or batch hie is a unformatted text hie containing DOS commands. 
Batch program are run from the DOS prompt, and they call each of the 
commands they contains. 

Batch hies have two advantages. The hrst is they save typing long com- 
mands over and over. This is a physical advantage that applies to all situ- 
ations. The second advantage is batch hies permit performing useful image 



277 




278 CHAPTER 18. COMMAND-LINE PROGRAMMING 

rem This is a simple .bat file 
echo off 

echo Hello World 
copy a. doc b.doc 



Figure 18.1: A .bat File 



processing. A batch file can perform the same operation on a series of im- 
ages, perform a series of similar operations on one image, and perform a 
long processing string on an image. The examples below will illustrate these 
advantages. 



18.3 Basics of .bat Programming 

Before launching into the examples, let’s review a few basics of DOS batch 
file programming. All texts on DOS, such as the DOS manual, discuss .bat 
file programming. I’ll cover the features used in the examples below. 

Figure 18.1 shows a basic .bat file. The first line begins with rem and is 
a remark or comment. The rem places comments anywhere in the file. The 
second line turns off all echoing or displaying to the screen. Without the echo 
off, the .bat would display every statement as they executed. The third line 
displays the words Hello World on the screen. All echo statements except 
echo off display text to the screen. The final line is the DOS copy command. 
It copies file a.doc to file b.doc. Saving this file as first.bat and typing the 
DOS command: 
first 

would display the message Hello World and copy file a.doc to b.doc. 

Figure 18.2 is the same as Figure 18.1 except the last statement. It uses 
the % sign to allow replaceable parameters on the command line. Saving this 
file as second.bat and typing the DOS command: 
second a.doc b.doc c: 

would display the message Hello World and copy the file a.doc to the file 
c:b.doc. The .bat file would replace %1 with a.doc (the first parameter), %2 
with b.doc (the second parameter), and %3 with c: (the third parameter). 
Notice how %3%2 becomes c:b.doc. You can concatenate %s to make path 



names. 
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rem This is a simple .bat file 
echo off 

echo Hello World 
copy %1 °/o3°/ 0 2 

Figure 18.2: Another Simple .bat File 

rem This is a simple .bat file 
echo off 

echo Hello World 
goto end 
copy 11 0 /o3°/o2 
: end 



Figure 18.3: A .bat File with Replaceable Parameters 



Figure 18.3 is the same as Figure 18.2 with the additional statements goto 
end and :end. The goto statement transfers control down to the :end label. 
The result is the copy statement is skipped. Saving this file as third.bat and 
typing the DOS command: 
third a.doc b.doc c: 

would display the message Hello World and quit. 

Figure 18.4 displays a final feature used in this chapter’s .bat listings. 
The statement if “%3” == ”” goto usage checks if the user entered a third 
parameter on the command line. If the third parameter equals an empty 
string, the user did not enter it so the if statement executes a goto usage 
command. Control jumps down to the :usage label, the program displays the 
usage text message, and ends. If the user entered a third parameter (%3 !— 
””), the echo and copy statements execute, control jumps down to the :end 
label, and the program ends. Saving this file as fourth.bat, and typing the 
DOS command: 
fourth or 
fourth a.doc or 
fourth a.doc b.doc 
would display the message 

usage fourth source-file destination-file directory 
and quit. 
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rem This is a simple .bat file 
echo off 

if "°/ 0 3" == "" goto usage 

echo Hello World 
copy %1 °/o3°/„2 
goto end 

: usage 

echo "usage fourth source-file destination-file directory" 
: end 



Figure 18.4: A .bat File that Checks for Parameters 

18.4 Uses and Examples 

The first use of .bat hies in image processing is repeating operations such as 
erosions, dilations, and filters. A .bat hie could erode an image easier than 
typing the mainsk command three times. 

Listing 18.1 shows the erode.bat hie. This erodes an image three times. 
The erode command needs the name of the input hie, output hie, and a 
working directory. The statement if “%3” == ”” goto usage checks to ensure 
the user entered three parameters. If the user did not, control jumps down to 
the usage message. The next section of commands runs the mainsk program 
three times to erode the input image using the mask erosion operator and 
places the result in the output hie. 

Notice how erode.bat uses the working directory %3 parameter, erode.bat 
creates two temporary hies, tmpl.tif and tmp2.tif, in the working directory 
and later deletes them. If hies named tmpl.tif and tmp2.tif are in the working 
directory, erode.bat will overwrite and delete them. 

Typing the DOS command 
erode a.tif b.tif f: 

will erode the image hie a.tif three times and place the result in b.tif. erode.bat 
will create and then delete the hies htmpl.tif and htmp2.tif. 

Listing 18.2 shows the dilate.bat hie. It performs the same operations 
as erode.bat except it dilates the input image hie three times. Listing 18.3 
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shows the median.bat file. It performs a 3x3 median filter on an input image 
file three times. It creates and deletes the same temporary files as the first 
two examples. 

A second use of .bat files is running many similar operations to com- 
pare their results. Listing 18.4 shows the bedge.bat file that runs ten edge 
detectors discussed in this book. Running this allows the user to type one 
command, go away for a while, and return to decide which edge detector is 
best for this image. 

bedge.bat is similar to the previous examples in how it tests for pa- 
rameters and displays a usage message if necessary. The difference is how 
bedge.bat names the output files. The user enters an output file directory 
and an output file prefix, bedge.bat concatenates these with the number of 
the edge detector to name the output files. Typing the DOS command 
hedge a.tif c:results aa 

creates output files named c: resultsaal.tif, c:resultsaa2.tif, etc. 

Listing 18.5 shows the lowfilt.bat file that runs five different low-pass Li- 
ters. It constructs the output file names using the same scheme as bedge.bat. 
Listing 18.6 shows the final comparison example, med357.bat. It runs the 
median filter on an input image using 3x3, 5x5, and 7x7 areas, and allows 
you to compare the results. 

Another use of .bat files is to combine images into special images. Listing 
18.7 shows the blabel.bat file. It creates a label and lays the label on top of 
an image. This .bat file requires you to type the message of the label inside 
the .bat file because I could not figure out a way to put the message on the 
command line (left as an exercise for the reader). The blabel.bat command 
line needs the name of the image to label, the output file name, a working 
directory, and the line and column of the image where you want the label. 
Before running this .bat file, the user must have created a tmpl.tif image 
with the same size of the input image, blabel.bat creates a small image file 
tmpl.tif in the working directory to hold the label message. It then dilates 
the label twice and exclusive ORs the dilated label with the original label 
(tmp2.tif, tmp3.tif, and tmp4.tif). Next, it overlays the message tmp4.tif on 
top of the input file %1 to create the output file %2. It ends by deleting the 
temporary files. 

Listing 18.8 shows another .bat file that combines images. The four- 
side. bat file uses the side program to paste four images into one big image. 
This lets you display them all at once for comparisons, fourside.bat needs 
the names of the four input files, the output file, and a working directory. 
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It uses the working directory to paste inputs one and two into tmpl.tif and 
images three and four into tmp2.tif. It then connects the temporary files into 
the output file and deletes the temporary files. 

Another use of .bat files is to string together steps in a processing se- 
quence. Listing 18.9 shows the improve.bat file that performs histogram 
equalization and applies high-pass filtering. Equalization and high-pass fil- 
tering usually improve the appearance of a poorly scanned image. 



18.5 Conclusions 

This final chapter has discussed using DOS .bat files to call the stand-alone 
image processing application programs. The .bat files given here only hint 
at the possible applications. Use .bat files for typing- and time-intensive 
processes. Most practical and worthwhile image processing requires running 
experiments with strings of operations. It is not sensible to do this without 
using .bat files. 

You can do the same in UNIX with scripts. My favorite are C shell scripts. 
The C shell commands are similar to programming in C and are far superior 
to DOS .bat files. 




Chapter 19 

A Tcl/Tk Windows Interface 



19.1 Introduction 

We live in a Windows world. There are still some of us who type command 
lines, but many people want a Windows interface. This chapter looks at this 
issue and how to use Tcl/Tk and Visual Tel to add a portable Windows 
interface to the image processing programs described in this book. 



19.2 The Need for a Windows Interface 

The image processing programs in this book are command-line driven, and 
many people don’t like using command-line programs. There are, however, 
some advantages to command-line programs. They are simple, and program- 
mers can string them together using .bat programming and Unix scripts as 
discussed in chapter 18. Disadvantages of command-line programs are that 
the user needs to remember the command-line. The image processing pro- 
grams all contain hints (if the user enters the command name and return, 
the program displays a reminder message) , but the user still must remember 
which program. 

We live in a Windows world whether that be Windows from Microsoft, 
Apple, or any one of the popular Unix windows systems. Users expect to be 
able to fill in a few blanks, point, and click to call processing routines. 

A graphical user interface or GUI (“goo-ey”) can be helpful to users. 
A user familiar with image processing should be able to sit in front of the 
GUI and perform useful tasks with no training. The GUI leads them to the 



283 




284 



CHAPTER 19. A TCL/TK WINDOWS INTERFACE 



software by showing them possibilities in a familiar format. The main CIPS 
program presented in the first edition of this text did the same with a series 
of text menus. The user selected the option by entering the number next 
to it and answering questions when prompted. The GUI available now does 
the same. Instead of picking numbers and answering questions, the user will 
click on buttons and fill in blanks. 

The image processing programs of this book present a special challenge 
to creating a GUI. These programs already exist. I wrote them over the past 
eight years in a command-line format. As the prior chapters have shown, the 
operators exist as subroutines with main routines doing the hie I/O. There 
is structure to the software, but it was not written in a Windows application 
builder environment. 

What I need is a GUI builder that can glue together existing software. 
Such GUI builders are known as scripting languages or “glueware.” They are 
high-level languages that use the windowing facilities of operating systems. 
They can call the windowing routines and call the existing programs. Best 
yet, the programming effort is small compared to traditional programming 
languages. 



19.3 Options 

Several excellent scripting languages exist. Perl has been popular since the 
mid-1990s. It allows programmers to access and manipulate hies in entire 
directories with a couple of statements. It, however, does not help with a 
GUI (at least not yet). I recommend C and CrH- programmers look at Perl. 
Perl scripts could easily replace the .bat hie programs of chapter 18 and be 
portable among DOS and Unix systems. Perl sources on the Internet and in 
the book store are too numerous to mention. 

Two scripting languages that do help with GUIs are Microsoft’s Visual 
Basic and Tcl/Tk. Visual Basic has been popular since the early 1990s. It is 
Microsoft’s language of choice for creating a GUI quickly. The “programmer” 
fills a blank window with buttons, entries, and other familiar GUI elements 
by dragging these items from toolkit areas. Visual Basic writes the code to 
implement these items. The programmer fills in with specihc calls to software 
where needed. 

Visual Basic is an excellent tool. A drawback is that it is tied to Mi- 
crosoft’s operating systems (Windows 95, 98, NT, etc.), so it does not work 
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in the Unix world. Another negative for this application is the image pro- 
cessing software is in C, not Basic. Visual Basic does allow mixing languages, 
but I don’t like to do that (bad experiences in the past). 

Another scripting language that builds GUIs is Tcl/Tk. Tel (pronounced 
“tickle”) is a tool command language created by John K. Ousterhout [19.1]. 
Tk (pronounce “tee-kay”) is a tool kit built on top of Tel. Tel was created as 
a scripting language in the Unix environment. Tel code resembles Unix C- 
Shell and other scripts. It also resembles Perl, although their developments 
were independent. Tk was created on top of Tel as an XI 1 (basic windows 
in Unix) toolkit. 

Tcl/Tk surprised people as it became a great way to build GUIs. A couple 
of lines of code could create a window with buttons and other GUI elements. 

Tcl/Tk is free and it works in both the Unix and Microsoft operating 
systems worlds. Tcl/Tk has a large following on the Internet and is available 
at [19.2], 

A tool that helps create GUIs with Tcl/Tk is Visual Tel (available at 
[19.3]). Tcl/Tk is so flexible that Stewart Allen wrote a GUI builder for 
Tcl/Tk in Tcl/Tk. Visual Tel looks much like Visual Basic. The programmer 
drags GUI elements into a window, and Visual Tel generates the Tcl/Tk 
source code. The programmer types a few commands to execute when the 
user clicks on buttons. The result is a Tcl/Tk script. 

I used Tcl/Tk and Visual Tel to create the GUI for the C Image Pro- 
cessing System. The next section shows a few windows from the GUI and 
points to the Tcl/Tk script that implements the GUI. The GUI has two 
dozen individual windows and calls the programs described in this text. I 
put it together in two dozen hours, and that includes learning how to use the 
tool. 

The concept of scripting languages works, and I encourage all C/C-l — I- 
programmers to consider them in conjunction with their old favorites. 



19.4 The Tcl/Tk Graphical User Interface 

The GUI I created for the C Image Processing System is simple, yet sufficient. 
It comprises windows that pop up and disappear. The user fills in blanks for 
the image processing parameters and clicks on command buttons to cause 
the programs to run. 

Figure 19.1 shows the first window that appears when running the CIPS 
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Tel script. When the user clicks one of the buttons shown, another window 
appears. For example, if the user clicks on the Stretch button (bottom of 
right row) the window shown in Figure 19.2 appears. When the user clicks 
on the exit button in the stretch window, it disappears. 







The C Image Processing System 


Histograms | 


Erosion & Dilation | 


Look at Image Numbers | 
Halftoning | 

Roundoff Image 


Boolean Operations 
Overlay Operations 
Geometry (rotate & stretch) | 


Edge Detection 
Filtering 


Warping | 

Texture Operations 


Add/Sub Cut/Paste Create 


Stereograms 


Segmentation | 

More Segmentation | 


Steganography 

Stretch 





Figure 19.1: The Main CIPS Window 

The stretch window in Figure 19.2 shows how the user calls programs. 
The user clicks on the entry fields (Input File, Output File, etc.) and types 
in the parameters. Once the parameters are filled, the user clicks on the 
Stretch button. This causes Tcl/Tk to call the stretch program described in 
chapter 13. 

Figure 19.3 shows the window that calls the texture operators described 
in chapter 15. This window is more complicated than the stretch window. 
The user can call one of six different related operators. The parameter fields 
shown are not used the same on all six operators. Therefore, a Help button is 
available. When the user presses this, another window pops up that explains 
which fields are necessary for which operator. 

This GUI is not fancy. It allows the user to call the same programs with 
the same parameters as presented throughout the book. The user, however, 
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Figure 19.2: The Window for the stretch Program 




Figure 19.3: The Window for the Various Texture Operators 
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does not need to open a text window and type command lines. 

An excellent attribute of this user interface is it is portable. Any machine 
that runs Tcl/Tk will run this user interface without any changes. Tcl/Tk 
runs on all Unix machines as well as Windows 95, 98, NT, etc. 

Listing 19.1 shows the Tcl/Tk script generated by the Visual Tel GUI 
builder. The only “source code” I entered was the exec statements. Scrolling 
down through the listing, is a “proc vTclWindow.topll” In this procedure 
is a statement that beings with “button $base.but28 -command.” When the 
user clicks on button 28, Tcl/Tk executes the command contained in the 
curly braces that follow. That command calls the himage program described 
in chapter 4. I entered this and all the exec statements inside the curly 
braces. Visual Tel did the rest. 



19.5 Conclusions 

This chapter has discussed adding a Windows interface or GUI to the image 
processing programs using Tcl/Tk and Visual Tel. The result is a simple 
interface that allows the user to fill in blanks and click on buttons to call the 
image processing programs described in this book. The interface is portable 
as Tcl/Tk runs without any change in the Microsoft Windows and Unix X 
world. 



19.6 Reference 

19.1 “Tel and the Tk Toolkit,” John K. Ousterhout, Addison- Wesley, 1994. 

19.2 http://www.scriptics.com 

19.3 http : / / www . neuron . com 




Appendix A 
The makefile 



To help manage the many different programs in the C Image Processing Sys- 
tem, I used the GNU make program and a makefile. This kept the software 
system together, made it easier to make code changes, and made it much eas- 
ier to distribute the source code to others. This appendix discusses makefiles 
in general, describes the makefile I used, and gives the commands needed to 
make the programs described in this book. 

A makefile is an ASCII text file that lists files, their dependents, and the 
commands needed to bring files up to date. GNU’s make program (like all 
make programs) examines the text in the makefile and runs commands if a 
file’s dependents are newer than the file. The most common way to use make 
and a makefile is to compile .c files and link their .o files into executable 
programs. 

Using a makefile is the easiest way to keep programs up to date and 
manage the complexity of changes in source code. If you make a change in 
one .c file, you do not need to worry how many executables depend on that 
file. The makefile lists the dependencies, and make sorts through them and 
calls the compiler and linker as needed. 

The makefile makes it easy to distribute programs to others. Once the 
makefile and all the source code files are in one directory, the programmer 
types one command and comes back in an hour, make and the makefile do 
all the work. 

You may need to make changes in the makefile shown in listing Al.l. 
It contains commands for the DJGPP C compiler. Different compilers and 
linkers use different commands. I have tried to make this makefile easy to 
port. 
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The best tutorial on make is “Managing Projects with make” [A 1.1] which 
gives a general discussion of make and some very interesting ways to use it. 
make programs are powerful and useful once you understand how they work. 



A.l The Listings 

Listing Al.l shows the makefile for the CIPS software. There are many good 
ways to set up a makefile, so do not be afraid to revise this in your favorite 
style. 

The first section defines the macros for the compile and link commands. 
Macros are abbreviations to use in the makefile. The CC macro is the com- 
mand to compile a .c file and create a .o hie. If you switch to another 
compiler, you only need to make one change here in the definition of CC. 
The $(CC) instances throughout the makefile will use the new definition. 
The same is true for all the macro definitions. 

The next section describes three special targets allip, cleanobj, and cleanexe. 
These special targets do not have any dependent hies, so make always exe- 
cutes the subsequent commands. 

The allip target causes make to make all the executable programs in 
CIPS. cleanobj deletes all the .o hies in the directory, and cleanexe deletes 
all the .exe hies in the directory. These are good to clean out the directory 
and start over. 

The next section of Listing Al.l shows how to build each executable 
program. For each program, I listed the .c hies needed, an abbreviation to 
list the .o hies needed, and how to link the .o hies into the executable. 

The hrst program listed is texture. The hrst line 
TSRC = imageio.c texture. c txtrsubs.c utility.c htt.c 

states that the source code hies needed for this program are imageio.c, tex- 
ture, c, txtrsubs.c, utility.c, and htt.c. 

The second line “TOBJ = ${TSRC:.c=.o}” uses shorthand to state that 
the object hies needed are the same as the source hies with the .c replaced by 
a .o. The next line “texture.exe: ${TOBJ}” says that the texture executable 
depends on the object hies from the preceding line. The hnal line “(${LINK}) 
texture.exe ${TOBJ}” says to create the executable by linking the object 
hies into texture.exe. make uses the LINK command dehned at the top of 
the makehle. GNU make knows by default to create .o hies from .c hies by 
running the C compiler dehned in the CC abbreviation at the top of the 
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makefile. All other programs in the makefile work the same as texture. 



A. 2 Commands to Build The C Image Pro- 
cessing System 

To build all the programs in the CIPS software, Type make allip RETURN. 

To build a single program, type make program-name RETURN. For ex- 
ample, to build texture.exe, type make texture.exe RETURN. 



A. 3 Reference 

Al.l “Managing Projects with make,” Andrew Oram and Steve Talbott, 
O’Reilly and Associates, Inc., 1991. 



A. 4 Code Listings 

########################################################## 

# 

# 21 June 1997 

# 

# GNU make (the DJGPP version of it) 

# 

# 

# GNU Make version 3.75, by Richard Stallman and Roland McGrath. 

# Copyright (C) 1988, 89, 90, 91, 92, 93, 94, 95, 96 

# Free Software Foundation, Inc. 

# This is free software; see the source for copying conditions. 

# There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A 

# PARTICULAR PURPOSE. 

# 

# Report bugs to <bug-gnu-utils@prep.ai.mit.edu>. 

############################################################ 

# 

# HELLO 

# 

# This is the basic test program 

# 
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HELLOSRC = hello. c hello2.c hello3.c 
HELLOO = ${HELL0SRC: .c=.o> 

hello.exe: ${HELL00> 

${LINK> hello.exe ${HELL00> 



########################################################## 

# 

# These are the commands for using the DJGPP compiler 

# 

# to compile and link a single file program 

# 

# gcc mfile.c -o myfile.exe -lm 

# 

# where the -lm links in math for trig 

# 

# to compile a C or C++ source file into an object file 

# 

# gcc -o Wall myfile.c 

# gcc -c Wall myfile.cc 

# 

# to link several C objects 

# 

# gcc -o myprog.exe subl.o sub2.o sub3.o 

# 

# to link several C++ objects 

# 

# gxx -o myprog.exe subl.o sub2.o sub3.o 

# 

# 

# 

# This is how to make a program. 

# list the source files 

# BASSRC = mainas.c addsub.c imageio.c 

# turn the .c files into .o object files 

# BASOB J = ${BASSRC : . c= . 0 } 

# mainas . exe : ${BASOB J> 

# ${LINK> mainas . exe ${BASOBJ> 

# 

# 

############################################################ 

# 
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# Define the basic macros 

# 

# 

LIB = -lm 

CC = gcc 

COMPILE = gcc -c 
LINK = gcc -o 
PLUSLINK = gxx -o 
MAKEFILE = -f makegcc 



###################################################### 



###################################################### 

# 

# CIPS PROGRAMS 

# 

# Special make targets: 

# allip - makes all .exe’s - may not work because 

# the compiler runs out of heap space and 

# things like that. Use the makeall.bat 

# file to do this 

# 

# cleanobj - deletes all the .o files 

# cleanexe - deletes all the .exe files 

# 



allip : 

make -f makegcc medge . exe 
make -f makegcc mfilter.exe 
make -f makegcc mainas . exe 
make -f makegcc maincp . exe 
make -f makegcc side . exe 
make -f makegcc stretch.exe 
make -f makegcc create.exe 
make -f makegcc mainseg.exe 
make -f makegcc main2seg.exe 
make -f makegcc pattern.exe 
make -f makegcc boolean.exe 
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make -f makegcc mainover.exe 
make -f makegcc invert . exe 
make -f makegcc mainsk.exe 
make -f makegcc ilabel . exe 
make -f makegcc hidet . exe 
make -f makegcc header . exe 
make -f makegcc stega.exe 
make -f makegcc texture.exe 
make -f makegcc geometry.exe 
make -f makegcc warp.exe 
make -f makegcc scstereo.exe 
make -f makegcc cstereo.exe 
make -f makegcc pstereo.exe 
make -f makegcc spstereo.exe 
make -f makegcc showi . exe 
make -f makegcc dumpi . exe 
make -f makegcc dumpb . exe 
make -f makegcc histeq.exe 
make -f makegcc halftone.exe 
make -f makegcc stretch.exe 
make -f makegcc tif2bmp.exe 
make -f makegcc bmp2tif.exe 
make -f makegcc himage.exe 
make -f makegcc round.exe 

cleanobj : 
del *.o 

cleanexe : 
del *.exe 



###################################################### 

###################################################### 

# 

# Define the stand alone application programs 



TSRC = imageio.c texture. c \ 

txtrsubs.c utility. c fitt.c 
TOBJ = ${TSRC: .c=.o> 
texture.exe: ${T0BJ> 

${LINK> texture.exe ${T0BJ> 
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GSRC = geometry. c geosubs. c imageio.c 
GOBJ = ${GSRC : . c= . o> 
geometry.exe: ${G0BJ> 

${LINK} geometry.exe ${G0BJ} 



WSRC = warp.c warpsubs.c geosubs. c imageio.c 
WOB J = ${WSRC : . c= . o> 
warp.exe: ${W0BJ> 

${LINK> warp.exe ${W0BJ> 



DBSRC = dumpb.c imageio.c 
DBOBJ = ${DBSRC: .c=.o> 
dumpb . exe : ${DB0B J} 

${LINK> dumpb . exe ${DB0BJ> 



DISRC = dumpi.c imageio.c 
DIOBJ = ${DISRC: .c=.o> 
dumpi.exe: ${DI0BJ} 

${LINK} dumpi.exe ${DI0BJ> 



SISRC = showi . c imageio.c 
SIOBJ = ${SISRC: .c=.o> 
showi.exe: ${SI0BJ} 

${LINK> showi.exe ${SI0BJ> 



HTSRC = halftone. c ht . c imageio.c 
HTOBJ = ${HTSRC: .c=.o> 
halftone . exe : ${HT0BJ> 

${LINK} halftone . exe ${HT0BJ> 



maincp: maincp.exe 
MCPSRC = imageio.c maincp. c cutp.c 
MCPOBJ = ${MCPSRC : . c= . o> 
maincp.exe: ${MCP0BJ> 

${LINK> maincp.exe ${MCP0BJ} 
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SDSRC = side.c imageio.c 
SDOBJ = ${SDSRC: ,c=.o> 
side.exe: ${SD0BJ} 

${LINK> side.exe ${SD0BJ> 



STSRC = imageio.c geosubs. c stretch. c 
STOBJ = ${STSRC: .c=.o> 
stretch.exe: ${ST0BJ> 

${LINK> stretch.exe ${ST0BJ} 



CRSRC = imageio . c create . c 
CROBJ = ${CRSRC: .c=.o> 
create . exe : ${CR0BJ> 

${LINK> create . exe ${CR0BJ> 



TBSRC = imageio.c tif2bmp.c 
TBOBJ = ${TBSRC: .c=.o> 
tif2bmp.exe: ${TB0BJ} 

${LINK> tif2bmp.exe ${TB0BJ> 



BTSRC = imageio.c bmp2tif.c 
BTOBJ = ${BTSRC: .c=.o> 
bmp2tif.exe: ${BT0BJ> 

${LINK> bmp2tif.exe ${BT0BJ} 



IHSRC = imageio.c himage . c hist.c 
IHOBJ = ${IHSRC: .c=.o> 
himage.exe: ${IH0BJ} 

${LINK> himage.exe ${IH0BJ> 



PATSRC = pattern. c imageio.c 
PATOBJ = ${PATSRC : . c= . o> 




A.4. CODELISTINGS 



297 



pattern.exe : ${PATOBJ> 

${LINK> pattern.exe ${PATOBJ} 



MAIN2SRC = edge2.c edge3.c segment. c \ 

edge.c filter. c main2seg.c hist.c segment2.c \ 
utility. c imageio.c 
MAIN20BJ = ${MAIN2SRC: .c=.o} 
main2seg.exe: ${MAIN20BJ> 

${LINK> main2seg.exe ${MAIN20BJ> 



SEGSRC = imageio.c hist.c mainseg.c \ 
utility . c segment . c 
SEGOB J = ${SEGSRC : . c= . 0 } 
mainseg.exe: ${SEG0BJ> 

${LINK> mainseg.exe ${SEG0BJ} 



BOOLSRC = boolean. c boole.c imageio.c 
B00L0BJ = ${B00LSRC: ,c=.o> 
boolean.exe: ${B00L0BJ} 

${LINK> boolean.exe ${B00L0BJ> 



OVERSRC = mainover. c overlay. c imageio.c 
OVEROBJ = ${0VERSRC: .c=.o> 
mainover . exe : ${0VER0BJ} 

${LINK} mainover.exe ${0VER0BJ> 



INVSRC = invert . c imageio.c 
INVOBJ = ${INVSRC : . c= . 0 } 
invert . exe : ${INV0BJ> 

${LINK> invert . exe ${INV0BJ} 



SKSRC = mainsk.c imageio.c \ 

skeleton. c ed.c utility. c 




298 



APPENDIX A. THE MAKEFILE 



SKOBJ = ${SKSRC: .c=.o> 
mainsk.exe: ${SK0BJ} 

${LINK> mainsk.exe ${SK0BJ} 



ILSRC = ilabel.c imageio.c 
ILOBJ = ${ILSRC: .c=.o> 
ilabel.exe: ${IL0BJ> 

${LINK> ilabel.exe ${IL0BJ> 



HESRC = header. c tiffs.c cips2.c 
HEOBJ = ${HESRC: .c=.o> 
header.exe: ${HE0BJ} 

${LINK> header.exe ${HE0BJ> 



BMSRC = medge.c edge . c edge2.c edge3.c imageio.c utility. c 
BMOBJ = ${BMSRC: .c=.o> 
medge.exe: ${BM0BJ> 

${LINK> medge . exe ${BM0B J} 



BASSRC = mainas.c addsub.c imageio.c 
BASOBJ = ${BASSRC : . c= . o> 
mainas: mainas.exe 
mainas.exe: ${BAS0BJ> 

${LINK> mainas . exe ${BAS0B J} 



BMFSRC = mfilter.c filter. c imageio.c utility. c 
BMFOBJ = ${BMFSRC : . c= . o> 
mfilter.exe: ${BMF0BJ> 

${LINK> mfilter.exe ${BMF0BJ> 



BRSRC = round. c imageio.c 
BROBJ = ${BRSRC: .c=.o> 
round.exe: $ {BROBJ} 
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${LINK} round.exe ${BROBJ> 



HQSRC = histeq.c hist.c imageio.c 
HQOBJ = ${HQSRC: .c=.o> 
histeq.exe: ${HQ0BJ} 

${LINK} histeq.exe ${HQ0BJ> 



BSGSRC = stega.c imageio.c 
BSGOBJ = ${BSGSRC : . c= . 0 } 
stega.exe: ${BSG0BJ} 

${LINK} stega.exe ${BSG0BJ> 



BHD SRC = hidet.c imageio.c 
BHDOBJ = ${BHDSRC : . c= . 0 } 
hidet . exe : ${BHD0B J> 

${LINK> hidet . exe ${BHD0BJ> 



CSSRC = cstereo.c 
CSOBJ = ${CSSRC: .c=.o> 
cstereo.exe: ${CS0BJ} 

${LINK> cstereo.exe ${CS0BJ} 



PSSRC = pstereo.c imageio.c 
PSOBJ = ${PSSRC: .c=.o> 
pstereo.exe: ${PS0BJ} 

${LINK> pstereo.exe ${PS0BJ} 



SCSSRC = scstereo.c 
SCSOBJ = ${SCSSRC : . c= . 0 } 
scstereo.exe: ${SCS0BJ> 

${LINK> scstereo.exe ${SCS0BJ> 
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SPSSRC = spstereo.c imageio.c 
SPSOBJ = ${SPSSRC : . c= . o> 
spstereo.exe: ${SPS0BJ} 

${LINK} spstereo.exe ${SPS0BJ> 

Listing Al.l - The CIPS makefile 




Appendix B 

The Stand-Alone Application 
Programs 



This appendix gives the names, a brief description, and the chapter contain- 
ing each of the stand-alone application programs in the C Image Processing 
System. 

round Chapter 1 

This program saves part of an input image to an output image. It can save 
any rectangle in the input image. 

bmp2tif Chapter 2 

This program converts a .bmp image hie to a .tif image hie. 



tif2bmp Chapter 1 

This program converts a .tif image hie to a .bmp image hie. 



showi Chapter 2 

This program displays the numbers in an image to the screen. The user can 
move around in the image to see the image numbers. 

dumpi Chapter 2 

This program dumps the numbers in an image to a text hie. The user can 
then print the image numbers from the text hie using a word processor. 
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halftone Chapter 3 

This program changes a gray scale input hie into a 1/0 output hie using a 
halftoning algorithm. 

dumpb Chapter 3 

This program dumps a 1/0 image to a text hie. It sends a space for every 0 
and an asterisk for every 1. The user can then print that space-asterisk hie 
using a word processor. Combining halftone and dumpb, the user can print 
posters of images. 

histeq Chapter 4 

This program performs histogram equalization on an entire input image hie 
and writes the equalized image to an output image hie. 

himage Chapter 4 

This program calculates the histogram of an image and creates a picture of 
that histogram in another image hie. 

side Chapter 4 

This program puts two entire images next to each other in an output image 
hie. It will either place the input images side by side or one above the other. 
It creates an output image large enough to hold the two input images. 

medge Chapter 6 

This program applies any of 11 different edge detectors to an entire input 
image hie and writes the edge detector output to an output image hie. 

mhlter Chapter 7 

This program applies any of 11 different hlters to an entire input image hie 
and writes the hltered output to an output image hie. 

mainas Chapter 8 

This program performs addition or subtraction between two entire input 
image hies and writes the result to an output sum or difference hie. The 
output equals either input 1 + input2, or input 1 - input2. 
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maincp Chapter 8 

This program copies a section from one image hie into another image hie. 
create Chapter 8 

This program creates a blank image. You can use this blank image as a 
bulletin board onto which you can paste parts of other images. 

invert Chapter 12 

This program inverts the gray shade values of an entire input image hie. It 
creates the output hie to hold the inverted result. 

mainseg Chapter 9 

This program performs image segmentation and related operations on an 
entire input image hie. It can call threshold and region-growing opera- 
tors as well as histogram peak-based, histogram valley-based, and adaptive 
histogram- based segmentation. It creates an output image hie to hold the 
result. 

main2seg Chapter 10 

This program performs image segmentation on an entire input image hie. It 
can perform gray shade, edge only, and combination edge and gray shade 
segmentation. It creates an output image hie to hold the result. 

mainsk Chapter 11 

This program performs erosion, dilation, outline, thinning, opening, closing, 
and medial axis transforms on an entire input image hie. 

boolean Chapter 12 

This program performs the Boolean operations of AND, OR, EXCLUSIVE- 
OR, NAND, NOR, and NOT using two input image hies. It creates an output 
image hie to hold the result. 

ilabel Chapter 12 

This program allows you to write block letter text onto an image. It creates 
an output image hie and writes the input image with the text on it into the 
output image. 
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mainover Chapter 12 

This program overlays one entire input image hie onto another using one of 
five different overlay operations. These operations are non-zero, zero, greater 
than, less than, and average. It creates an output image hie to hold the result. 

geometry Chapter 13 

This program performs the geometric operations of displacement, stretching, 
rotation, and cross products. 

stretch Chapter 13 

This program stretches and compresses images in the horizontal and vertical 
directions. 

warp Chapter 14 

This program allows the user to use either control point or object warping 
on an image. It is the basis for morphing. 

texture Chapter 15 

This program allows the user to call any of the texture measures discussed 
in chapter 15. 

cstereo Chapter 16 

This program creates random dot stereograms on character ” images” (text 
hies of characters). 

pstereo Chapter 16 

This program creates random dot stereograms on regular gray scale pixel 
images. 

scstereo Chapter 16 

This program creates special colorheld stereograms on character ” images” 
(text hies of characters). 

spstereo Chapter 16 

This program creates special colorheld stereograms on regular gray scale pixel 
images. 
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hidet Chapter 17 

This program hides a watermark image into a gray scale image, 
stega Chapter 17 

The program hides an image into another image using steganography. It also 
retrieves the hidden image back to its original format. 
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Appendix C 

Source Code Tables of Contents 



This appendix lists the table of contents of all the functions in the C Image 
Processing System. This appendix tells you which source code hie contains 
which function. 

There are two lists below. List A3.1 gives all the function names in 
alphabetical order next to the name of the corresponding source code hie. 
List A3. 2 gives the name of each source code hie with the names of the 
functions it contains. 

I used the C-DOC documentation tool to generate these lists. C-DOC is 
a very helpful tool, and I recommend it highly. 

C-DOC 

Software Blacksmiths Inc. 

6064 St Ives Way 
Mississauga, ONT Canada 
(416) 858-4466 

C.l Listings 

adapt ive_thresho ld_ segment at i on 
add_ image _ array 
adiff erence 
allocate_image_array 
amean 
and_ image 
are_not_same_size 
arotate 

average_overlay 



segment . c 
addsub . c 
txtrsubs . c 
image io . c 
txtrsubs . c 
boole . c 
image io . c 
geosubs . c 
overlay . c 
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bi_full_warp_loop 

bi_warp_loop 

bilinear_interpolate 



warpsubs . c 
warpsubs . c 
geosubs . c 



calculate_histogram 

calculate_pad 

can_dilate 

can_thin 

check_cut_and_paste_limits 

closing 

compare 

contrast_edge 

convert_matrix 

copy_3_x_3 

copy_array_into_image 
create_allocate_bmp_f ile 
create_allocate_tiff_f ile 
create_bmp_f ile_if _needed 
create_f ile_if _needed 
create_image_f ile 
create_resized_image_f ile 
create_tiff_f ile_if_needed 
cvector 



hist . c 
image io . c 
skeleton. c 
skeleton. c 
cutp . c 
ed. c 

txtrsubs . c 
edge2 . c 
f itt . c 
ed. c 

ilabel . c 
image io . c 
image io . c 
image io . c 
image io . c 
image io . c 
image io . c 
image io . c 
f itt . c 



detect_edges 

dif f erence_array 

dif f erence_edge 

dilate_not_join 

dilation 

distance_8 

dmatrix 

does_not_exist 

dvector 



edge . c 
txtrsubs . c 
edge2 . c 
skeleton. c 
ed. c 

skeleton. c 
f itt . c 
image io . c 
f itt . c 



edge_gray_shade_region 

edge_region 

edm 

enhance_edges 

equate_bitmapheaders 

equate_bmpf ileheaders 

equate_tiff_headers 

erode_image_array 

erosion 

exterior_outline 



segment2 . c 
segment2 . c 
skeleton. c 
edge3 . c 
image io . c 
image io . c 
image io . c 
segment2 . c 
ed. c 
ed. c 
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extract_long_from_buffer 


image io . c 




extract_short_f rom_buf f er 


image io . c 




extract _ulong_f rom_buf f er 


image io . c 




extract_ushort_from_buff er 


image io . c 




f 3tensor 


f itt . c 




f ill_line 


cstereo . c 




f ilter_image 


f ilter . c 




f ind_cutoff_point 


segment2 . c 




f ind_peaks 


segment . c 




f ind_valley_po int 


segment . c 




fit 


f itt . c 




f ix_edges 


utility. c 




f lip_image_array 


image io . c 




free_convert_matrix 


f itt . c 




free_cvector 


f itt . c 




free_dmatrix 


f itt . c 




free_dvector 


f itt . c 




free_f3tensor 


f itt . c 




free_image_array 


image io . c 




free_imatrix 


f itt . c 




free_ivector 


f itt . c 




free_lvector 


f itt . c 




free_matrix 


f itt . c 




free_submatrix 


f itt . c 




free_vector 


f itt . c 




f sort_elements 


filter. c 




f swap 


filter. c 




full_warp_loop 


warpsubs . c 




gammln 


f itt . c 




gammq 


f itt . c 




gaussian_edge 


edge3 . c 




gcf 


f itt . c 




geometry 


geosubs . c 




get_bitsperpixel 


image io . c 




get_image_size 


image io . c 




get_lsb 


image io . c 




get_random_values 


cstereo . c 




gray_shade_region 


segment2 . c 




great er_overlay 


overlay . c 




grow 


segment . c 




gser 


f itt . c 




half _t one 


ht . c 
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hide_image 


stega.c 


hide_pixels 


stega. c 


high_pixel 


filter . c 


hist_long_clear_buf f er 


hist . c 


hline 


h image . c 


homogeneity 


edge2 . c 


hurst 


txtrsubs . c 


imatrix 


f itt . c 


initialize_pattern 


cstereo . c 


insert_into_deltas 


segment . c 


insert_into_peaks 


segment . c 


insert_long_into_buf f er 


image io . c 


insert_short_into_buf f er 


image io . c 


insert_ulong_into_buf f er 


image io . c 


insert_ushort_into_buff er 


image io . c 


interior_outline 


ed. c 


is_a_bmp 


image io . c 


is_a_tiff 


image io . c 


is_close 


segment2.c 


is_in_image 


showi . c 


is_not_empty 


segment . c 


is_not_emptyp 


segment2.c 


ivector 


f itt . c 


label_and_check_neighbor 


segment . c 


lengthen_pattern 


cstereo . c 


less_overlay 


overlay . c 


little_label_and_check 


skeleton. c 


low_pixel 


filter. c 


Ivector 


f itt . c 


main 


texture . c 


mELnual_threshold_segmentation 


segment . c 


mask_dilation 


ed. c 


mask_erosion 


ed. c 


mat 


skeleton. c 


mat_d 


skeleton. c 


matrix 


f itt . c 


median_f ilter 


filter .c 


median_of 


filter. c 


nand_ image 


boole.c 


no_change 


cstereo . c 


non_zero_overlay 


overlay . c 
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nor _ image 
not _ image 
nrerror 

object_warp 
opening 
or _ image 

paste_image_piece 

peak_threshold_segmentation 

peaks_high_low 

perf orm_convolution 

perf orm_histogram_equalization 

pixel_grow 

pixel_label_and_check_neighbor 

pop 

popp 

print _bm_header 
print _bmp_file_header 
print _color_table 
print _side_usage 
push 
pushp 

quick_edge 

random_substitution 

range 

read_bm_header 
read_bmp_f ile_header 
read_bmp_ image 
read_color_table 
read_image_array 
read_line 
read_t if f _header 
read_tiff _image 
round_off _image_size 



boole.c 
boole . c 
f itt . c 

warpsubs . c 
ed.c 
boole . c 

cutp . c 
segment . c 
segment . c 
edge . c 
hist . c 
segment2 . c 
segment2 . c 
segment . c 
segment2 . c 
image io . c 
image io . c 
image io . c 
side.c 
segment . c 
segment2 . c 

edge . c 

cstereo . c 
edge2 . c 
image io . c 
image io . c 
image io . c 
image io . c 
image io . c 
image io . c 
image io . c 
image io . c 
image io . c 



s_lengthen_pattern 
seek_to_end_of _line 
seek_to_f irst_line 
setup_f ilters 
setup _masks 
short en_pattern 
show_edge_usage 



scstereo . c 
image io . c 
image io . c 
f ilter . c 
edge . c 
cstereo. c 
medge . c 
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show_mainsk_usage 


mainsk. c 


show_screen 


showi . c 


show_stack 


segment . c 


show_stackp 


segment2 . c 


show_texture_usage 


texture . c 


sigma 


txtrsubs . c 


skewness 


txtrsubs . c 


smooth_histogram 


hist . c 


sort_elements 


utility . c 


special_closing 


skeleton. c 


special_opening 


skeleton. c 


special_substitution 


scstereo.c 


stretch 


stretch. c 


submatrix 


f itt . c 


subtract_image_array 


addsub . c 


swap 


utility. c 


test_print_line 


cstereo . c 


thinning 


skeleton. c 


threshold_and_f ind_means 


segment . c 


threshold_image_array 


segment . c 


valley_high_low 


segment . c 


valley_threshold_segmentation 


segment . c 


variance 


edge2 . c 


vector 


f itt . c 


vline 


himage . c 


warp 


warpsubs . c 


warp_loop 


warpsubs . c 


write_bmp_image 


image io . c 


write_image_array 


image io . c 


write_line 


image io . c 


write_tif f _image 


image io . c 


xor_ image 


boole . c 


zero_histogram 


hist . c 


zero_line 


pstereo . c 


zero_overlay 


overlay . c 


Listing A3.1 - Alphabetical Li 


ist of Functions 


add_image_array 


addsub . c 
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subtract_image_array 


addsub . c 


and_ image 


boole . c 


nand_ image 


boole . c 


nor _ image 


boole . c 


not_image 


boole. c 


or_image 


boole. c 


xor_image 


boole . c 


f ill_line 


cstereo.c 


get_random_values 


cstereo.c 


initialize_pattern 


cstereo . c 


lengthen_pattern 


cstereo . c 


no_change 


cstereo.c 


random_substitution 


cstereo.c 


shorten_pattern 


cstereo.c 


test_print_line 


cstereo . c 


check_cut_and_paste_limits 


cutp . c 


paste_image_piece 


cutp . c 


closing 


ed. c 


copy_3_x_3 


ed. c 


dilation 


ed. c 


erosion 


ed. c 


inter ior_outline 


ed. c 


mask_dilation 


ed. c 


mask_erosion 


ed. c 


exterior_outline 


ed. c 


opening 


ed. c 


detect_edges 


edge . c 


perform_convolution 


edge . c 


quick_edge 


edge . c 


setup _masks 


edge . c 


contrast_edge 


edge2 . c 


difference_edge 


edge2 . c 


homogeneity 


edge2 . c 


range 


edge2 . c 
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variance 



edge2 . c 



enhance_edges 

gaussian_edge 



edge3 . c 
edge3 . c 



convert_matrix 

cvector 

dmatrix 

dvector 

f3tensor 

fit 

free_convert_matrix 

free_cvector 

free_dmatrix 

free_dvector 

free_f3tensor 

free_imatrix 

free_ivector 

free_lvector 

free_matrix 

free_submatrix 

free_vector 

ganimln 

gser 

ganimq 

gcf 

imatrix 

ivector 

lvector 

matrix 

nrerror 

submatrix 

vector 



f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 
f itt . c 



f ilter_image 
f sort_elements 
f swap 

high_pixel 
low_pixel 
median_f ilter 



filter . c 
filter. c 
filter. c 
filter. c 
filter . c 
filter . c 
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median_of 


f ilter . c 


setup_f ilters 


f ilter . c 


high_pixel 


f ilter . c 


arotate 


geosubs . c 


bilinear_interpolate 


geosubs . c 


geometry 


geosubs . c 


hline 


himage . c 


vline 


himage . c 


calculate_histogram 


hist . c 


hist_long_clear_buf f er 


hist . c 


perform_histogram_equalization 


hist . c 


smooth_histogram 


hist . c 


zero_histogram 


hist . c 


half _tone 


ht . c 


c opy _ ar r ay _ int o _ image 


ilabel.c 


create_allocate_bmp_f ile 


image io . c 


calculate_pad 


image io.c 


create_allocate_tiff_f ile 


image io.c 


create_bmp_f ile_if _needed 


image io . c 


allocate_image_array 


image io . c 


create_f ile_if _needed 


image io . c 


create_image_f ile 


image io.c 


create_resized_image_f ile 


image io.c 


are_not_same_size 


image io . c 


create_tif f _f ile_if _needed 


image io . c 


does_not_exist 


image io.c 


equate_bitmapheaders 


image io.c 


equate_bmpf ileheader s 


image io . c 


equate_tif f .headers 


image io . c 


extr act _long_f r om_buf f er 


image io.c 


extr act _short _f r om_buf f er 


image io.c 


extract _ulong_f r om_buf f er 


image io.c 


extract _ushort_f rom_buf f er 


image io . c 


f lip_image_array 


image io . c 
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free.image.array 


image io . c 


get_bitsperpixel 


image io . c 


get_image_size 


imageio . c 


get_lsb 


imageio . c 


insert_long_into_buff er 


imageio . c 


insert.short_into.buff er 


imageio . c 


insert.ulong_into.buff er 


imageio . c 


insert _ushort_into_buf f er 


imageio . c 


is_a_bmp 


imageio . c 


is_a_tiff 


imageio . c 


print_bm_beader 


imageio . c 


pr int _bmp _file_header 


imageio . c 


print_color_table 


imageio . c 


read_bm_header 


imageio . c 


read_bmp_f ile_header 


imageio . c 


read_bmp_image 


imageio . c 


read_color_table 


imageio . c 


read_image_array 


imageio . c 


read_line 


imageio . c 


read_t iff .header 


imageio . c 


read_tiff .image 


imageio . c 


round_off.image.size 


imageio . c 


seek.to_end.of .line 


imageio . c 


seek.to_first.line 


imageio . c 


write.bmp. image 


imageio . c 


wr i t e _ image _ ar r ay 


imageio . c 


write.line 


imageio . c 


write.t iff .image 


imageio . c 


show.mainsk.usage 


mainsk. c 


show.edge.usage 


medge . c 


average.overlay 


overlay . c 


great er.overlay 


overlay . c 


zero.overlay 


overlay . c 


less.overlay 


overlay . c 


non.zero.overlay 


overlay . c 


zero.line 


pstereo . c 
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special_substitution 


scstereo . c 


adapt ive_threshold_segmentation 


segment . c 


f ind_peaks 


segment . c 


f ind_valley_point 


segment . c 


grow 


segment . c 


insert _into_delt as 


segment . c 


insert _into_peaks 


segment . c 


is_not_empty 


segment . c 


label_and_check_neighbor 


segment . c 


manual_threshold_segmentation 


segment . c 


peak_threshold_segmentation 


segment . c 


peaks_high_low 


segment . c 


pop 


segment . c 


push 


segment . c 


show_stack 


segment . c 


threshold_and_f ind_means 


segment . c 


threshold_image_array 


segment . c 


valley_higb_low 


segment . c 


valley_threshold_segmentation 


segment . c 


edge_gray_shade_region 


segment2 . c 


edge_region 


segment2 . c 


erode_image_array 


segment2 . c 


f ind_cutof f _point 


segment2 . c 


gray_shade_region 


segment2 . c 


is_close 


segment2 . c 


is_not_emptyp 


segment2 . c 


pixel_grow 


segment2 . c 


pixel_label_and_check_neighbor 


segment2 . c 


popp 


segment2 . c 


pushp 


segment2 . c 


show_stackp 


segment2 . c 


is_in_ image 


showi . c 


show_screen 


showi . c 


can_dilate 


skeleton. c 


can_thin 


skeleton. c 
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dilate_not_ j oin 


skeleton. c 


distance_8 


skeleton. c 


edm 


skeleton. c 


little_label_and_check 


skeleton. c 


mat 


skeleton. c 


mat_d 


skeleton. c 


special_closing 


skeleton. c 


thinning 


skeleton. c 


special_opening 


skeleton. c 


print_side_usage 


side.c 


hide_image 


stega. c 


hide_pixels 


stega. c 


stretch 


stretch. c 


show_texture_usage 


texture . c 


adifference 


txtrsubs . c 


amean 


txtrsubs . c 


dif f erence_array 


txtrsubs . c 


compare 


txtrsubs . c 


hurst 


txtrsubs . c 


sigma 


txtrsubs . c 


skewness 


txtrsubs . c 


f ix_edges 


utility . c 


sort_elements 


utility . c 


swap 


utility . c 


bi_full_warp_loop 


warpsubs . c 


bi_warp_loop 


warpsubs . c 


full_warp_loop 


warpsubs . c 


object_warp 


warpsubs . c 


warp 


warpsubs . c 


warp_loop 


warpsubs . c 
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Appendix D 

Index of Image Processing 
Algorithms 



This appendix lists the image processing algorithms discussed in this book. It 
gives the algorithm name and the chapter where you will find the algorithm. 
Given below are two lists. The first lists the algorithms in the order they 
appear in the book. The second lists the algorithms sorted alphabetically. 



D.l Algorithms Listed in Order of Appear- 
ance 



Algorithm Chapter 

Reading BMP Files 1 

Reading TIFF Files 1 

Writing BMP Files 1 

Writing TIFF Files 1 

Displaying Image Numbers 2 

Dumping Image Numbers 2 

Halftoning 3 

Calculating Histograms 4 



319 




320 APPENDIX D. INDEX OF IMAGE PROCESSING ALGORITHMS 



Histogram Equalization 4 

Displaying Histograms 4 

Pasting Image Side by Side 4 

Prewitt Edge Detector 5 

Kirsch Edge Detector 5 

Sobel Edge Detector 5 

Quick Edge Detector 5 

Homogeneity Edge Detector 6 

Difference Edge Detector 6 

Difference of Gaussians Edge Detector 6 

Mexican Hat Edge Detector 6 

Contrast-based Edge Detector 6 

Variance Edge Detector 6 

Range Edge Detector 6 

Low-pass Filter (4 masks) 7 

Median Filter 7 

High-pass Filter (3 masks) 7 

Image Addition 8 

Image Subtraction 8 

Image Cutting and Pasting 8 

Blank Image Creation 8 

Image Thresholding 9 

Region Growing 9, 10 

Histogram Smoothing 9 

Histogram Peak Finding 9 

Histogram Valley Finding 9 

Histogram-based Segmentation 9 

Adaptive Histogram Segmentation 9 

Gray Shade Segmentation 10 

Edge Based Segmentation 10 

Edge and Gray Shade Segmentation 10 

High-pixel Filter 10 
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Low-pixel Filter 


10 


Automatic Histogram Thresholding 


10 


Erosion 


11 


Dilation 


11 


Mask Erosion 


11 


Mask Dilation 


11 


Opening 


11 


Closing 


11 


Special Opening 


11 


Special Closing 


11 


Thinning 


11 


Skeletonization 


11 


Euclidean Distance Measure 


11 


Medial Axis Transform 


11 


Interior Outlining 


11 


Exterior Outlining 


11 


AND Boolean Operation 


12 


OR Boolean Operation 


12 


EXCLUSIVE-OR Boolean Operation 


12 


NAND Boolean Operation 


12 


NOR Boolean Operation 


12 


NOT Boolean Operation 


12 


Image Labeling 


12 


Masking 


12 


Zero Image Overlay 


12 


Non-zero Image Overlay 


12 


Greater Image Overlay 


12 


Less Image Overlay 


12 


Average Image Overlay 


12 


Image Diplacement 


13 


Image Stretching 


13 


Image Rotation 


13 


Image Cross Product 


13 


Bi-linear Interpolation 


13 
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Control Point Warping 14 
Object Warping 14 
Image Shearing 14 
Morphing 14 

Hurst Operator 15 
Sigma Operator 15 
Skewness 15 
Difference Operator 15 
Compare Operator 15 

Random Dot Stereograms 16 
Colorfield Stereograms 16 

Watermarks 17 
Steganography 17 



D.2 Algorithms Listed Alphabetical Order 



Algorithm Chapter 

Adaptive Histogram Segmentation 9 

AND Boolean Operation 12 

Automatic Histogram Thresholding 10 

Average Image Overlay 12 

Bi-linear Interpolation 13 

Blank Image Creation 8 

Calculating Histograms 4 

Closing 11 

Colorfield Stereograms 16 

Compare Operator 15 

Contrast-based Edge Detector 6 

Control Point Warping 14 
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Difference Edge Detector 6 

Difference of Gaussians Edge Detector 6 

Difference Operator 15 

Dilation 11 

Displaying Histograms 4 

Displaying Image Numbers 2 

Dumping Image Numbers 2 

Edge and Gray Shade Segmentation 10 

Edge Based Segmentation 10 

Erosion 11 

Euclidean Distance Measure 11 

EXCLUSIVE-OR Boolean Operation 12 

Exterior Outlining 11 

Gray Shade Segmentation 10 

Greater Image Overlay 12 

Halftoning 3 

High-pass Filter (3 masks) 7 

High-pixel Filter 10 

Histogram-based Segmentation 9 

Histogram Equalization 4 

Histogram Peak Finding 9 

Histogram Smoothing 9 

Histogram Valley Finding 9 

Homogeneity Edge Detector 6 

Hurst Operator 15 

Image Addition 8 

Image Cutting and Pasting 8 

Image Cross Product 13 

Image Diplacement 13 

Image Labeling 12 

Image Thresholding 9 

Image Shearing 14 

Image Stretching 13 

Image Subtraction 8 
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Image Rotation 13 

Interior Outlining 11 

Kirsch Edge Detector 5 

Less Image Overlay 12 

Low-pass Filter (4 masks) 7 

Low-pixel Filter 10 

Mask Dilation 11 

Mask Erosion 11 

Masking 12 

Medial Axis Transform 11 

Median Filter 7 

Mexican Hat Edge Detector 6 

Morphing 14 

NAND Boolean Operation 12 

NOR Boolean Operation 12 

NOT Boolean Operation 12 

Non-zero Image Overlay 12 

Object Warping 14 

Opening 11 

OR Boolean Operation 12 

Pasting Image Side by Side 4 

Prewitt Edge Detector 5 

Quick Edge Detector 5 

Random Dot Stereograms 16 

Range Edge Detector 6 

Reading BMP Files 1 

Reading TIFF Files 1 

Region Growing 9, 10 



Sigma Operator 



15 
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Skeletonization 11 

Skewness 15 

Sobel Edge Detector 5 

Special Closing 11 

Special Opening 11 

Steganography 17 

Thinning 11 

Variance Edge Detector 6 

Watermarks 17 

Writing BMP Files 1 

Writing TIFF Files 1 

Zero Image Overlay 12 
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Appendix E 
Bibliography 



This appendix lists the image processing and computer programming books 
I used in preparing this book. 



E.l Image Processing Books 



Kenneth R. Castleman, “Digital Image Processing,” 1979, Prentice- Hall, 
Englewood Cliffs, N.J. 07632, ISBN 0-13- 212365-7. 

This was my first image processing textbook. It was used for senior level 
courses in image processing. Although dated in its discussion of computer 
hardware and image processing systems, it discusses the fundamentals with 
good example images. No source code. 

Martin D. Levine, “Vision in Man and Machine,” 1985, McGraw- Hill, New 
York, NY, ISBN 0-07-037446-5. 

This is a deep text used in graduate level courses on image processing and 
computer vision. It discusses many of the biological vision and perception 
systems as well as computer algorithms. It contains descriptions, equations, 
and good photograph examples for many image processing applications. No 
source code. 

John H. Karl, “An Introduction to Digital Signal Processing,” 1989, Aca- 
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demic Press, San Diego, California 92101, ISBN 0-12-398420-3 

This is not an image processing text, but discusses the basics of digital signal 
processing. It is written in a narrative vs. mathematical style, so you can 
read it and learn about how computers process data. It covers several topics 
of interest to image processors such as Fourier transforms, filters, and two- 
dimensional signal processing. 

Craig A. Lindley, Practical Image Processing in C, 1991, John Wiley & Sons, 
New York, NY, ISBN 0-471-54377-2. 

This is the first of the new breed of image processing books that contains 
source code written expressly for the personal computer. As the title says, 
it is a practical not academic book. Much of the book concerns building 
and using an image digitizer. It covers the TIFF 5.0 specification as well as 
the PCX file format. It also discusses classic image processing operations. 
The text lists all source code and the accompanying floppy disk contains the 
source code, project files, executables, and a few images. The C code was 
written for the Borland Turbo C compiler. 

John C. Russ, “The Image Processing Handbook,” Third Edition, 1999, CRC 
Press, Boca Raton, Florida. ISBN 0-8493-4233- 3. 

This is a newer all-encompassing source. It is a very complete text covering 
many common image processing algorithms and their applications. It dis- 
cusses techniques and illustrates them with numerous excellent photographs. 
Although not one of the “practical” texts, it is not full of theory and I would 
not call it a purely academic work. It does not have any source code. I highly 
recommend this book. 

Harley R. Myler and Arthur R. Weeks, “Imaging Recipes in C,” 1993, Prentice- 
Hall, Englewood Cliffs, New Jersey. ISBN 0-13-189879-5. 

This was written by two professors at the University of Central Florida. 
It is appropriate for both home use and early undergraduate classes. It 
discusses basic image processing using the UCFImage computer software 
imaging system. The book lists “code segments” (the computational parts 
of subroutines) and comes with a disk containing executables and images 
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not source code. The software can read images in the TIFF, GIF, BMP, and 
PCX file formats. This book blends theory, practice, and enough source code 
to make it very worthwhile. 



E.2 Programming Books 



Jack Purdum, “C Programming Guide,” 1983, Que Corp., Indianapolis, In- 
diana. ISBN 0-88022-022-8. 

You need to start somewhere, and this is where I learned how to program in 
C. This book may be hard to find, but it is very hard to beat as a place to 
begin. 

Brian W. Kernighan and Dennis M. Ritchie, “The C Programming Lan- 
guage,” Second Edition, 1988, Prentice-Hall, Englewood Cliffs, New Jersey. 
ISBN 0-13-110362-8. 

You can’t program in C without this on the shelf. 

Andrew Oram and Steve Talbott, “Managing Projects with make,” 1991, 
O’Reilly & Associates, Sebastopol, California. ISBN 0-937175-90-0. 

This is the best tutorial available on makefiles. It is a must if you plan to 
write any programs that comprise more than one source code file. 

Steve Oualline, “C Elements of Style,” 1992, M&T Publishing, San Mateo, 
California. ISBN 1-55851- 291-8. 

This is a good text on how to write C programs that you and others can 
read, understand, and maintain. This is an increasingly important topic in 
programming. The text also has a chapter on good style for writing makefiles. 

P.J. Plauger, “The Standard C Library,” 1992, Prentice-Hall, Englewood 
Cliffs, New Jersey. ISBN 0-13-131509-9. 

This text spells out the standard library in great detail. An excellent refer- 
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Appendix F 

Source Code Listings 



The following sections contain the source code listings for chapters 1 through 
19 . 

F.l Code Listings for Chapter 1 



/******************************************* 

* 

* read_image_array( . . . 

* 

* This routine reads the image data from 

* either a tiff or bmp image. 

********************************************/ 

read_image_array(f ile_name, array) 
char *file_name; 
short **array; 

{ 

int ok = 0; 

if (is_a_tif f (f ile_name) ) { 

read_tiff_image(f ile_name, array) ; 
ok = 1; 

} 
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if (is_a_bmp (f ile_name) ) { 

read_bmp_image(f ile_name, array); 
ok = 1; 

} 



if (ok == 0){ 

print f ( "\nERR0R could not read file °/,s", 
f ile_name) ; 
exit (1) ; 



)- /* ends read_image_array */ 



/******************************************* 

* 

* write_image_array( . . . 

* 

* This routine writes the image data to 

* either a tiff or bmp image. 

********************************************/ 

write_image_array(f ile_name, array) 
char *file_name; 
short ** array; 

■c 

int ok = 0; 

if (is_a_tif f (f ile_name) ) { 

write_tif f _image (f ile_name , array) ; 
ok = 1 ; 

> 

if (is_a_bmp(f ile_name) ){ 

wr ite_bmp_image (f ile_name , array) ; 
ok = 1; 

> 



if (ok == 0){ 




F.l. CODE LISTINGS FOR CHAPTER 1 



print f ( " \nERROR could not write file "/.s", 
f ile_name) ; 
exit (1) ; 



} /* ends write_image_array */ 



/********************************************* 

* create_image_f ile( . . . 

* This function creates an output image file. 

* It uses the input image file as a pattern. 

* 

sit********************************************/ 



create_image_f ile(in_name, out_name) 
char *in_name, *out_name; 

{ 

struct bmpf ileheader bmp_f ile_header ; 

struct bitmapheader bmheader; 

struct tiff _header_struct tiff _f ile_header ; 



if (is_a_tif f (in_name) ) -[ 

read_tiff_header (in_name, &tif f _f ile_header) 
create_allocate_tif f _f ile (out_name , 

&tiff_f ile_header) 



} 



if (is_a_bmp (in_name) ) { 

read_bmp_f ile_header (in_name , 

&bmp_f ile_header) ; 
read_bm_header (in_name , &bmheader) ; 
create_allocate_bmp_f ile (out_name , 

&bmp_f ile_header , 
&bmheader) ; 



> /* ends create_image_f ile */ 
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/*^^****************************************** 

* get_image_size( . . . 

* 

* This function reads the rows and cols 

* from the header of either a tiff or bmp 

* image file. 

* 

* IF IT CANNOT FIND THIS INFORMATION, 

* it returns a ZERO. 



int get_image_size(file_name, rows, cols) 
char *file_name; 
long *cols, *rows; 

int is_bmp = 0, 
is_tiff = 0, 
result = 0; 

struct bitmapheader bmph; 
struct tif f _header_struct tiffh; 

if (is_a_bmp (f ile_name) ) { 
is_bmp = 1; 

read_bm_header(f ile_name, febmph) ; 
*rows = bmph. height; 

*cols = bmph. width; 

} /* ends if is_a_bmp */ 

if (is_a_tif f (f ile_name) ) { 
is_tiff = 1; 

read_tiff_header(file_name, &tiffh) ; 
*rows = tiffh. image_length; 

*cols = tiffh. image_width; 

} /* ends if is_a_bmp */ 

if (is_bmp == 1 || is_tif f == 1) 

result = 1; 



return(result) ; 
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> /* ends get_image_size */ 



/**************************************** 

* 

* allocate_image_array( . . . 

* 

* This function allocates memory for 

* a two-dimensional image array. 

****************************************/ 

short **allocate_image_array (length, width) 
long length, width; 

{ 

int i; 

short **the_array; 

the_array = malloc (length * sizeof (short *)); 
for(i=0; Klength; i++){ 

the_array[i] = malloc (width * sizeof (short )); 
if (the_array [i] == ’ \0’){ 

printf ("\n\tmalloc of the _ image [°/ 0 d] failed", i) ; 
> /* ends if */ 

> /* ends loop over i */ 

return (the_array) ; 

> /* ends allocate_image_array */ 



/**************************************** 

* 



free_image_array ( . . . 
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* 

* This function frees up the memory 

* used by a two-dimensional imaage array. 

****************************************/ 

int free_image_array (the_array , length) 
short **the_array; 
long length; 

■c 

int i; 

for(i=0; iclength; i++) 
free (the_array [i] ) ; 
return (1) ; 

}■ /* ends free_image_array */ 



/********************************************* 

* 

* create_f ile_if _needed( . . . 

* This function creates an output file 

* if it does not exist. It can create 

* the output file as a tiff or a bmp 

* based on the input file type. 

* 

*********************************************/ 

create_f ile_if_needed(in_name, out_name, array) 
char *in_name, *out_name; 
short ** array; 

■c 

if (is_a_tif f (in_name) ) { 

create_tif f _f ile_if _needed(in_name, 
out_name , 
array) ; 

> /* ends if is a tiff */ 

if (is_a_bmp (in_name) ) { 

create_bmp_f ile_if _needed ( in_name , 
out_name, 
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array) ; 

} /* ends if is a tiff */ 

} /* ends create_f ile_if _needed */ 



/********************************************* 

* 

* create_resized_image_f ile( . . . 

* This function creates an output image file. 

* It uses the input image file as a pattern. 

sit********************************************/ 



create_resized_image_f ile (in_name , out_name , 
length, width) 
char *in_name, *out_name; 
long length, width; 

{ 

struct bmpf ileheader bmp_f ile_header ; 

struct bitmapheader bmheader; 

struct tiff _header_struct tiff _f ile_header ; 



if (is_a_tif f (in_name) ) { 

read_tiff_header(in_name, &tif f _f ile_header) ; 
tiff_file_header.image_length = length; 
tiff_file_header.image_width = width; 
create_allocate_tif f _f ile (out_name , 

&tif f _f ile_header) ; 



} 



if (is_a_bmp (in_name) ) { 

read_bmp_f ile_header (in_name , 

&bmp_f ile_header) ; 
read_bm_header(in_name, &bmheader) ; 
bmheader .height = length; 
bmheader .width = width; 
create_allocate_bmp_f ile (out_name , 

&bmp_f ile_header , 
&bmheader) ; 
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> 

)- /* ends create_resided_image_f ile */ 



/*********************************************** 

* 

* does_not_exist(. . . 

* This function checks the disk to see if 

* a file exists. If the file is there this 

* function returns a 0, if it does not exist 

* this function returns a 1. 

* 

***********************************************/ 

does_not_exist (f ile_name) 
char file_name[]; 

FILE *image_file; 
int result ; 

result = 1 ; 

image_file = f open(f ile_name , "rb"); 
if (image_f ile != NULL){ 
result = 0; 
f close (image_f ile) ; 

> 

return(result) ; 

}- /* ends does_not_exist */ 



/********************************************* 

* 

* are_not_same_size( . . . 

* 

* This function checks the rows and cols 

* of two images whose names are passed. 
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* It returns a 1 if the images are not 

* the same size. 

*********************************************/ 

int are_not_same_size(f ilel , file2) 
char *f ilel , *file2; 

{ 

int result = 0; 
long colsl = 1, 
cols2 = 2, 
rowsl = 3, 
rows2 = 4; 

get_image_size(f ilel, fcrowsl, ftcolsl) ; 
get_image_size(f ile2, &rows2, &cols2) ; 

if (rowsl != rows2 | I colsl != cols2) 
result = 1; 

return (result) ; 

> /* ends are_not_same_size */ 



/********************************************* 

* 

* equate_bitmapheaders ( . . . 

* 

* This function sets the elements of the 

* destination header to the values of the 

* source header. 



*********************************************/ 



equate_bitmapheaders(src, dest) 

struct bitmapheader *src, *dest; 



dest->size 

dest->width 

dest->height 

dest->planes 



= src->size; 

= src->width; 

= src->width; 

= src->planes; 



dest->bitsperpixel = src->bitsperpixel; 
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dest->compression = src->compression; 
dest->sizeof bitmap = src->sizeof bitmap; 
dest->horzres = src->horzres ; 

dest->vertres = src->vertres ; 

dest->colorsused = src->colorsused; 

dest->colorsimp = src->colorsimp; 

/* ends equate_bitmapheader */ 



/sit***************************************** 

* get_bitsperpixel( . . . 

* This function reads the bits per pixel 

* from either a tiff or bmp image file. 

******************************************/ 



int get_bitsperpixel(f ile_name, bitsperpixel) 
char *file_name; 
long *bitsperpixel; 

{ 

int is_bmp = 0, 
is_tiff = 0, 
result = 0; 
long temp; 

struct bitmapheader bmph; 
struct tiff_header_struct tiffh; 

if (is_a_bmp(file_name)){ 
is_bmp = 1 ; 

read_bm_header(f ile_name, febmph) ; 
temp = (long) bmph. bitsperpixel; 
♦bitsperpixel = temp; 

} /* ends if is_a_bmp */ 

if (is_a_tif f (f ile_name) ) { 
is_tiff = 1; 

read_tiff_header(file_name, &tiffh) ; 
♦bitsperpixel = tiffh.bits_per_pixel; 

} /* ends if is_a_bmp */ 
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if(is_bmp == 1 || is_tiff == 1) 

result = 1 ; 

return (result) ; 

} /* ends get_image_size */ 



/****************************************** 

* 

* get_lsb( . . . 

* This function reads the lsb flag 

* from a tiff image file. 

* 

******************************************/ 

int get_lsb(name) 
char *name; 

{ 

int result = 0; 

struct tiff _header_struct tiff_header; 

if (is_a_bmp (name) ) 
result = 1; 

if (is_a_tif f (name) ) { 

read_tiff_header(name, &tif f _header) ; 
if (tiff_header.lsb == 1) 
result = 1 ; 

} /* ends if is a tiff */ 

return (result) ; 

} /* ends get_lsb */ 



Listing 1.1 - The High-Level I/O Routines 
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/^Hc*^****************************************** 

* read_tif f _header ( . . . 

* This function reads the header of a TIFF 

* file and places the needed information into 

* the struct tif f _header_struct . 

* 

***********************************************/ 

read_tiff -header (file_name , image_header) 
char file_name[]; 

struct tif f_header_struct *image_header ; 

■c 

char buffer [12], response [80] ; 

FILE *image_f ile ; 

int bytes_read, 
closed, 

i, 

j. 

lsb, 

not-f inished, 
position; 

long bits_per_pixel, 
image-length, 
image-width, 
length-of-f ield, 
off set-tO-ifd, 
strip-offset , 
subfile , 
value ; 

short entry_count , 
field-type , 
s_bits_per_pixel , 
s_image_length , 
s_image_width, 

S-Strip-Off set , 
tag-type ; 
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image_file = fopen(f ile_name, "rb"); 
if (image_f ile != NULL){ 

/************************************* 

* Determine if the file uses MSB 

* first or LSB first 

* 

*************************************/ 

bytes_read = fread(buffer , 1, 8, image_f ile) ; 

if (buffer [0] == 0x49) 
lsb = 1; 
else 

lsb = 0; 

/sic************************************ 

* 

* Read the offset to the IFD 

* 

*************************************/ 

extract_long_from_buffer (buffer , lsb, 4, 

&of f set_to_ifd) ; 



not_finished = 1; 
while (not_f ini shed) { 

/************************************* 

* 

* Seek to the IFD and read the 

* entry_count, i.e. the number of 

* entries in the IFD. 

*************************************/ 

position = f seek(image_f ile , of f set_to_if d, 
SEEK_SET) ; 

bytes_read = fread(buff er , 1, 2, image_f ile) ; 
extract_short_from_buff er(buffer , lsb, 0, 
&entry_count) ; 

/*************************************** 
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* Now loop over the directory entries. 

* Look only for the tags we need. These 

* are : 

* ImageLength 

* ImageWidth 

* BitsPerPixel(BitsPerSample) 

* StripOffset 

* 

*****************************************/ 

for(i=0; i<entry_count ; i++){ 
bytes_read = fread(buffer , 1, 12, image_f ile) ; 
extract_short_from_buffer (buff er , lsb, 0, 
&tag_type) ; 



switch(tag_type){ 



case 255: /* Subfile Type */ 

extract_short_from_buffer (buffer, lsb, 2, 
&f ield_type) ; 

extract_short_from_buffer (buffer, lsb, 4, 
&length_of _f ield) ; 

extract_long_from_buffer(buff er , lsb, 8, 
fesubf ile) ; 



break; 



case 256: /* ImageWidth */ 

extract_short_f rom_buf f er (buffer, lsb, 2, 
&f ield_type) ; 

extract_short_from_buffer (buffer, lsb, 4, 
&length_of_f ield) ; 

if (f ield_type == 3){ 

extract_short_from_buff er(buffer , lsb, 8, 
&s_image_width) ; 
image_width = s_image_width; 

} 



else 

extract_long_f rom_buf f er (buffer, lsb, 8, 
&image_width) ; 



break ; 



case 257 : /* ImageLength */ 

extract_short_from_buffer (buffer, lsb, 2, 
&f ield_type) ; 

extract_short_f rom_buf f er (buf f er , lsb, 4, 
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&length_of _f ield) ; 

if (f ield_type == 3){ 

extract_short_from_buffer (buffer, lsb, 8, 
&s_image_length) ; 
image_length = s_image_length; 

> 



else 

extract_long_from_buffer(buff er , lsb, 8, 
&image_length) ; 



break; 



case 258: /* BitsPerSample */ 

extract_short_f rom_buf f er (buff er , lsb, 2, 
&f ield_type) ; 

extract_short_f rom_buf f er (buff er , lsb, 4, 
&length_of _f ield) ; 

if (f ield_type == 3){ 

extract_short_from_buffer(buffer, lsb, 8, 
&s_bits_per_pixel) ; 
bits_per_pixel = s_bits_per_pixel; 

} 



else 

extract_long_from_buffer(buff er , lsb, 8, 
&bits_per_pixel) ; 



break; 



case 273: /* StripOffset */ 

extract_short_f rom_buf f er (buff er , lsb, 2, 
&f ield_type) ; 

extract_short_from_buffer(buff er , lsb, 4, 
&length_of_f ield) ; 

if (f ield_type == 3){ 

extract_short_from_buffer(buffer, lsb, 8, 
&s_strip_off set) ; 
strip_offset = s_strip_of f set ; 

} 



else 

extract_long_f rom_buf f er (buff er , lsb, 8, 
&strip_of f set) ; 



break; 



default : 
break; 



)- /* ends switch tag_type */ 
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]- /* ends loop over i directory entries */ 

bytes_read = fread(buf f er , 1, 4, image_file); 
extract_long_from_buff er(buffer , lsb, 0, 

&of f set_to_if d) ; 

if (of f set_to_ifd == 0) not_f inished = 0; 

> /* ends while not_finished */ 



image_header->lsb 
image_header->bits_per_pixel 
image_header->image_length 
image_header->image_width 
image_header->strip_of f set 



= lsb; 

bits_per_pixel ; 

= image_length; 
= image_width; 

= strip_off set ; 



closed = f close (image_f ile) ; 

> /* ends if file opened ok */ 
else{ 

printf ("\n\nTIFF.C> ERROR - could not open 
"tiff file"); 

> 

}- /* ends read_tif f _header */ 



/**************************************** 

* 

* read_tif f _image ( . . . 

* 

* This function reads the image data 

* from a tiff image file. 

* It only works for 8-bit gray scale 

* images. 

****************************************/ 

read_tif f _image (image_f ile_name , the_image) 
char image_f ile_name [] ; 

short **the_image; 

■c 
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char *buffer, /* CHANGED */ 
rep [80] ; 

int bytes_read, 
closed, 
position, 
i , 

j; 

FILE *image_f ile ; 
float a; 

long line_length, offset; 

struct tiff _header_struct image_header ; 

read_tiff_header(image_file_name, &image_header) ; 

/*********************************************** 

* 

* Procedure : 

* Seek to the strip offset where the data begins. 

* Seek to the first line you want. 

* Loop over the lines you want to read: 

* Seek to the first element of the line. 

* Read the line. 

* Seek to the end of the data in that line . 



image_file = f open(image_f ile_name , "rb"); 
if (image_f ile != NULL){ 

position = f seek (image_f ile, 

image_header . strip_off set , 

SEEK_SET) ; 

for(i=0; i<image_header . image_length; i++){ 

bytes_read = read_line (image_f ile , the_image, 
i , &image_header , 

0 , image_header . image_width) ; 

)■ /* ends loop over i */ 

closed = f close (image_f ile) ; 

> /* ends if file opened ok */ 

else{ 

printf ("\nRTIFF.C> ERROR - cannot open " 

"tiff file") ; 
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> 

)- /* ends read_tif f _image */ 



/********************************************** 

* 

* read_line( . . . 

* 

* This function reads bytes from the TIFF 

* file into a buffer, extracts the numbers 

* from that buffer, and puts them into a 

* ROWSxCOLS array of shorts . The process 

* depends on the number of bits per pixel used 

* in the file (4 or 8) . 

* 

**********************************************/ 

read_line(image_f ile, the_image, line_number, 
image_header , ie, le) 

FILE *image_file; 

int ie, le, line_number; 

short **the_image; 

struct tif f _header_struct *image_header ; 

char *buffer, first, second; 
float a, b; 
int bytes_read, i; 
unsigned int bytes_to_read; 
union short_char_union scu; 



buffer = (char *) malloc(image_header->image_width 
for(i=0; i<image_header->image_width; i++) 
buffer [i] = ’XO’; 

/******************************************** 

* 

* Use the number of bits per pixel to 

* calculate how many bytes to read. 

* 

********************************************/ 



* sizeof(char )); 
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bytes_to_read = (le-ie)/ 

(8/ image_header->bits_per_pixel) ; 
bytes_read = fread(buff er , 1, bytes_to_read, 
image_f ile) ; 

for(i=0; i<bytes_read; i++){ 

/sic******************************************** 

* 

* Use unions defined in cips.h to stuff bytes 

* into shorts. 



**********************************************/ 



if (image_header->bits_per_pixel == 8){ 
scu.s_num = 0; 

scu. s_alpha[0] = buffer[i]; 

the_image [line_number] [i] = scu.s_num; 
> /* ends if bits_per_pixel == 8 */ 

if (image_header->bits_per_pixel == 4){ 



scu. s_num 
second 

scu. s_alpha [0] 
the_image [line_ 



= 0 ; 

= buffer 
= second 
number] [i*2+l] : 



[i] & 0X000F ; 
= scu.s_num; 



scu. s_num 

first 

first 

scu. s_alpha [0] 



= 0 ; 

= buffer [i] » 4; 
= first & OxOOOF ; 
= first; 



the_image [line_number] [i*2] = scu.s_num; 



}■ /* ends if bits_per_pixel == 4 */ 



} /* ends loop over i */ 



free (buffer) ; 
return (bytes_read) ; 



> /* ends read_line */ 
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* create_tiff _f ile_if _needed( . . . 

* This function creates a tiff file on disk 

* if it does not exist. The out file is 

* patterned after the in file. 

* 

***********************************************/ 

create_tif f _f ile_if _needed(in_name , out_name, out_image) 
char in_name [] , out_name [] ; 
short * * out _ image ; 

■c 

int length, width; 

struct tiff_header_struct image_header ; 

if (does_not_exist (out_name) ) { 

printf("\n\n output file does not exist 7 0 s", 
out_name) ; 

read_tiff_header (in_name, &image_header) ; 
create_allocate_tiff_f ile(out_name, &image_header) ; 
printf ("\nBFIN> Created 7,s", out_name) ; 

} /* ends if does_not_exist */ 

}■ /* ends create_tif f _f ile_if _needed */ 



/sic********************************************* 

* create_alllocate_tiff _f ile( . . . 

* This function creates a file on disk that will be 

* large enough to hold a tiff image. The input 

* tif f _header_struct describes the desired tiff file. 

* This function writes the tiff header and then 

* writes a blank image array out to disk the proper 

* number of times. This has the effect of allocating 

* the correct number of bytes on the disk. 

* 

* There will be 18 entries in the IFD. 
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* The image data will begin at byte 296. 

* I will use LSB first data. 

* I will have one strip for the entire image. 

* Black is zero. 

* The component values for the image are CHUNKY 

* (Planer configuration = 1) . 

***************************************************/ 



create_allocate_tiff_f ile(f ile_name, 

image_header) 

char file_name[]; 

struct tiff _header_struct *image_header ; 

{ 

char buffer[12], *image_buf f er , long_buf f er [50] ; 
FILE *image_file; 
int bytes_written, 

i, 

j. 

1 , 

w; 

long k; 



/***** ********************************** 

* 

* Create the image file in binary mode 

* for both reading and writing. 

* 

****************************************/ 

image_file = fopen(f ile_name, "wb"); 

/***** ********************************** 

* 

* Write out the first 8 bytes of the 

* header. The meaning of the 

* bytes (HEX) is: 

* 0-1 = 49 49 - LSB first 

* 2-3 = 2A 00 - version # 

* 4-7 = 08 00 00 00 - go to offset 

* 8 for the first 
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* Image File 

* Directory 

****************************************/ 



buffer [0] = 0x49 
buffer [1] = 0x49 
buffer [2] = 0x2A 
buffer [3] = 0x00 
buffer [4] = 0x08 
buffer [5] = 0x00 
buffer [6] = 0x00 
buffer [7] = 0x00 



bytes_written = fwrite (buffer , 1, 8, image_f ile) ; 
printf("\n wrote °/ 0 d bytes", bytes_written) ; 

/sit************************************** 



* Write out the first 2 bytes of the 

* Image File Directory. These tell 

* the number of entries in the IFD. 



****************************************/ 

buffer [0] = 0x12; 
buffer [1] = 0x00; 

bytes_written = fwrite (buffer , 1, 2, image_f ile) ; 
printf("\n wrote °/ 0 d bytes", bytes_written) ; 

/sic************************************** 



* Write out the entries into the 

* Image File Directory. 

****************************************/ 



/* New Subfile Type */ 
buffer [0] = OxFE; 

buffer [1] = 0x00; 

buffer [2] = 0x03; 

buffer [3] = 0x00; 
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buffer [4] = 0x01; 

buffer [5] = 0x00; 

buffer [6] = 0x00; 

buffer [7] = 0x00 ; 

buffer [8] = 0x00; 

buffer [9] = 0x00; 

buffer [10] = 0x00; 
buffer [11] = 0x00; 

bytes_written = fwrite (buffer , 1, 12, image_f ile) ; 
printf ("\n wrote 7,d bytes", bytes_written) ; 



/* Subfile Type */ 
buffer [0] = OxFF ; 

buffer [1] = 0x00; 

buffer [2] = 0x03; 

buffer [3] = 0x00; 

buffer [4] = 0x01; 

buffer [5] = 0x00; 

buffer [6] = 0x00; 

buffer [7] = 0x00 ; 

buffer [8] = 0x01; 

buffer [9] = 0x00; 

buffer [10] = 0x00; 
buffer [11] = 0x00; 

bytes_written = fwrite (buffer , 1, 12, image_f ile) ; 
printf ("\n wrote °/,d bytes", bytes_written) ; 



/* Image Width */ 

insert_short_into_buffer (buffer , 0, 256); 
insert_short_into_buffer (buffer , 2, 3); 
insert_short_into_buffer (buffer , 4, 1); 
insert_short_into_buf f er (buffer , 8 , 

image_header->image_width) ; 
bytes_written = fwrite (buffer , 1, 12, image_f ile) ; 
printf ("\n wrote °/,d bytes", bytes_written) ; 



/* Image Length */ 

insert_short_into_buffer (buffer , 0, 257); 
insert_short_into_buffer (buffer , 2, 3); 
insert_short_into_buffer (buffer , 4, 1); 
insert_short_into_buf f er (buffer , 8 , 

image_header->image_length) ; 
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bytes_written = fwrite (buffer , 1, 12, image_f ile) ; 
printf("\n wrote °/ 0 d bytes", bytes_written) ; 



/* Bits Per Sample */ 
insert_short_into_buf f er (buff er , 0, 258); 
insert_short_into_buf f er (buff er , 2, 3); 
insert_short_into_buffer (buff er , 4, 1); 
insert_short_into_buf f er (buffer , 8 , 

image_header->bits_per_pixel) ; 
bytes_written = fwrite (buffer , 1, 12, image_f ile) ; 
printf("\n wrote °/ 0 d bytes", bytes_written) ; 



/* Compression - None */ 
insert_short_into_buf f er (buff er , 0, 259); 
insert_short_into_buf f er (buff er , 2, 3); 
insert_short_into_buffer (buff er , 4, 1); 
insert_short_into_buffer (buff er , 8, 1); 
bytes_written = fwrite (buffer , 1, 12, image_f ile) ; 
printf("\n wrote °/ 0 d bytes", bytes_written) ; 



/* Photometric Interpretation */ 

/* set to 1 because BLACK is ZERO */ 
insert_short_into_buf f er (buff er , 0, 262); 
insert_short_into_buf f er (buff er , 2, 3); 
insert_short_into_buf f er (buff er , 4, 1); 
insert_short_into_buffer (buff er , 8, 1); 
bytes_written = fwrite (buffer , 1, 12, image_f ile) ; 
printf("\n wrote °/ 0 d bytes", bytes_written) ; 



/* Strip Offset */ 

/* start after software name at 296 */ 
insert_short_into_buf f er (buff er , 0, 273); 
insert_short_into_buf f er (buff er , 2, 3); 
insert_short_into_buf f er (buff er , 4, 1); 
insert_short_into_buf f er (buff er , 8, 296); 
bytes_written = fwrite (buffer , 1, 12, image_f ile) ; 
printf("\n wrote °/ 0 d bytes", bytes_written) ; 



/* Samples per Pixel */ 
insert_short_into_buf f er (buff er , 0, 277); 
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insert_short_into_buffer (buffer , 2, 3); 
insert_short_into_buf f er (buffer , 4, 1); 
insert_short_into_buf f er (buffer , 8, 1); 
bytes_written = fwrite (buffer , 1, 12, image_f ile) ; 
printf ("\n wrote °/,d bytes", bytes_written) ; 



/* clear buffer */ 

f or (i=0 ; i<12; i++) buffer [i] = 0x00; 

/* Rows Per Strip 1 strip for the entire image */ 
/* use 2E32 - 1, which is max */ 
insert_short_into_buf f er (buffer , 0, 278); 
insert_short_into_buf f er (buffer , 2, 4); 
insert_short_into_buf f er (buffer , 4, 1); 
insert_long_into_buff er(buffer , 8, 4294967295); 
bytes_written = fwrite (buffer , 1, 12, image_file); 
printf ("\n wrote °/,d bytes", bytes_written) ; 



/* Strip Byte Counts */ 

/* this = image width times length */ 
insert_short_into_buffer (buffer , 0, 279); 
insert_short_into_buf f er (buffer , 2, 4); 
insert_short_into_buf f er (buffer , 4, 1); 
insert_long_into_buf f er (buffer , 8 , 

(long) (image_header->image_length * 
image_header->image_width) ) ; 
bytes_written = fwrite (buffer , 1, 12, image_file); 
printf ("\n wrote °/,d bytes", bytes_written) ; 



/* Min Sample Value */ 
insert_short_into_buf f er (buffer , 0, 280); 
insert_short_into_buf f er (buffer , 2, 3); 
insert_short_into_buf f er (buffer , 4, 1); 
insert_short_into_buf f er (buffer , 8, 0); 
bytes_written = fwrite (buffer , 1, 12, image_file); 
printf ("\n wrote °/,d bytes", bytes_written) ; 



/* Max Sample Value */ 
insert_short_into_buffer (buffer , 0, 281); 
insert_short_into_buffer (buffer , 2, 3); 
insert_short_into_buf f er (buffer , 4, 1); 
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if (image_header->bits_per_pixel == 8) 

ins ert_ short _into_buff er(buffer , 8, 255); 
else 

ins ert_ short _into_buff er(buffer , 8, 15); 
bytes_written = fwrite (buffer , 1, 12, image_f ile) ; 
printf("\n wrote °/ 0 d bytes", bytes_written) ; 



/* X Resolution */ 

/* Store the 8 bytes for this value 
starting at 230 */ 

insert_short_into_buffer (buff er , 0, 282); 
insert_short_into_buffer (buff er , 2, 5); 
insert_short_into_buf f er (buff er , 4, 1); 
insert_short_into_buf f er (buff er , 8, 230); 
bytes_written = fwrite (buffer , 1, 12, image_f ile) ; 
printf("\n wrote °/ 0 d bytes", bytes_written) ; 



/* Y Resolution */ 

/* Store the 8 bytes for this value 
starting at 238 */ 

insert_short_into_buffer (buff er , 0, 283); 
insert_short_into_buf f er (buff er , 2, 5); 
insert_short_into_buf f er (buff er , 4, 1); 
insert_short_into_buf f er (buff er , 8, 238); 
bytes_written = fwrite (buffer , 1, 12, image_f ile) ; 
printf("\n wrote °/ 0 d bytes", bytes_written) ; 



/* clear buffer */ 

for(i=0; i<12; i++) buffer[i] = 0x00; 

/* Planer Configuration */ 

/* chunky */ 

insert_short_into_buf f er (buff er , 0, 284); 
insert_short_into_buf f er (buff er , 2, 3); 
insert_short_into_buf f er (buff er , 4, 1); 
insert_short_into_buffer (buff er , 8, 1); 
bytes_written = fwrite (buffer , 1, 12, image_f ile) ; 
printf("\n wrote °/,d bytes", bytes_written) ; 



/* Resolution Unit */ 
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/* inches */ 

insert_short_into_buf f er (buffer , 0, 296); 
insert_short_into_buffer (buffer , 2, 3); 
insert_short_into_buf f er (buffer , 4, 1); 
insert_short_into_buf f er (buffer , 8, 2); 
bytes_written = fwrite (buffer , 1, 12, image_f ile) ; 
printf("\n wrote °/,d bytes", bytes_written) ; 



/* Software */ 

/* Put this a 246, 50 bytes */ 
insert_short_into_buffer (buffer , 0, 305); 
insert_short_into_buf f er (buffer , 2, 2); 
insert_short_into_buf f er (buffer , 4, 50); 
insert_short_into_buf f er (buffer , 8, 246); 
bytes_written = fwrite (buffer , 1, 12, image_f ile) ; 
printf("\n wrote °/,d bytes", bytes_written) ; 



/* Offset to next IFD (0 means no more IFD’s) */ 
f or (i=0 ; i<12; i++) buffer [i] = 0x00; 
bytes_written = fwrite (buffer , 1, 4, image_file); 
printf("\n wrote °/,d bytes", bytes_written) ; 



/* clear buffer */ 

f or (i=0 ; i<12; i++) buffer [i] = 0x00; 

/* Now store the X Resolution 
first long is numerator 
second long is denominator */ 
insert_long_into_buff er(buffer , 0, 300L) ; 
insert_long_into_buff er(buffer , 4, 1L) ; 
bytes_written = fwrite (buffer , 1, 8, image_file); 
printf("\n wrote °/,d bytes", bytes_written) ; 



/* Now store the Y Resolution 
first long is numerator 
second long is denominator */ 
insert_long_into_buff er(buffer , 0, 300L) ; 
insert_long_into_buff er(buffer , 4, 1L) ; 
bytes_written = fwrite (buffer , 1, 8, image_file); 
printf("\n wrote °/,d bytes", bytes_written) ; 
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/* Now store the software tag */ 
for(i=0; i<50; i++) long_buff er [i] = ’\0’; 
strcpy (long_buf f er , 

"Dwayne Phillips C Image Processing System 1993"); 

long_buf f er [46] = ’NO’; 

long_buf f er [47] = ’ \0 ’ ; 

long_buffer [48] = ’\0’; 

long_buffer [49] = ’\0’; 

bytes_written = f write (long_buffer , 1, 50, 
image_f ile) ; 

printf("\n wrote °/ 0 d bytes", bytes_written) ; 
printf ("\n7 0 s" , long_buf f er) ; 



* Now write the image data. 
****************************************/ 

printf ("\n length is 7,ld" , 

image_header->image_length) ; 

printf ("\n width is 7old" , 

image_header->image_width) ; 

k = image_header->image_width; 

if (image_header->bits_per_pixel == 4) 
k = k/2; 

image_buffer = (char *) malloc(k * sizeof(char )); 

f or (i=0 ; i<k; i++) 

image_buf f er [i] = 0x00; 

for(i=0; i<image_header->image_length; i++){ 

bytes_written = f write (image_buffer , 1, k, image_file); 
/***printf ("\n wrote 7«d bytes", bytes_written) ; ***/ 



f close(image_f ile) ; 
free(image_buffer) ; 
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> /* ends create_allocate_tiff_f ile */ 



* 

* write_tiff_image( . . . 

* 

* This function takes an array of shorts and 

* writes them into an existing tiff image file. 

* 

**********************************************/ 

write_tif f _ image ( image _f ile_name , array) 

char image_f ile_name [] ; 

short ** array; 



FILE *image_f ile ; 

int bytes_written, 
closed, 
i , 

position, 

written; 

float a; 

long line_length, 
offset ; 

struct tiff _header_struct image_header ; 

read_tiff_header(image_file_name, &image_header) ; 

/*********************************************** 

* 

* Procedure : 

* Seek to the strip offset where the data begins. 

* Seek to the first line you want. 

* Loop over the lines you want to write. 

* Seek to the first element of the line. 

* Write the line. 
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* Seek to the end of the data in that line. 

************************************************/ 



image_file = f open(image_f ile_name , "rb+"); 
position = f seek(image_f ile , 

image_header . strip_of f set , 
SEEK_SET) ; 

for(i=0; i<image_header . image_length; i++){ 

bytes_written = write_line (image_f ile , array, 
i, &image_header , 

0 , image_header . image. 

} /* ends loop over i */ 

closed = f close (image_f ile) ; 

> /* ends write_tiff_image */ 



/********************************************* 

* write_line( . . . 

* This function takes an array of shorts, 

* extracts the numbers and puts them into 

* a buffer, then writes this buffer into a 

* tiff file on disk. The process depends on 

* the number of bits per pixel used in the 

* file (4 or 8) . 



write_line(image_f ile, array, line_number, 
image_header , ie, le) 

FILE *image_file; 

int ie, le, line_number; 

short ** array; 

struct tiff_header_struct *image_header ; 

char *buffer, first, second; 

float a, b; 



.width) ; 
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int bytes_written, i; 

unsigned int bytes_to_write ; 
union short_char_union scu; 

buffer = (char *) malloc(image_header->image_width * 
for(i=0; i<image_header->image_width; i++) 
buffer [i] = ’NO’; 

bytes_to_write = (le-ie)/ 

(8/image_header->bits_per_pixel) ; 

for(i=0; i<bytes_to_write ; i++){ 

/********************************************** 

* Use unions defined in cips.h to stuff shorts 

* into bytess. 

* 

sit*********************************************/ 

if (image_header->bits_per_pixel == 8){ 
scu.s_num = 0; 

scu.s_num = array [line_number] [i] ; 
buffer [i] = scu. s_alpha[0] ; 
l /* ends if bits_per_pixel == 8 */ 



if (image_header->bits_per_pixel == 4){ 
scu.s_num = 0; 

scu.s_num = array [line_number] [i*2] ; 
first = scu. s_alpha[0] « 4; 

scu.s_num = 0; 

scu.s_num = array [line_number] [i*2] ; 
second = scu.s_alpha[0] & 0X000F ; 

buffer [i] = first | second; 

)■ /* ends if bits_per_pixel == 4 */ 

} /* ends loop over i */ 



bytes_written = f write (buffer , 1, bytes_to_write , 
image_f ile) ; 



sizeof(char )); 
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free (buffer) ; 
return (bytes_written) ; 

}- /* ends write_line */ 



/********************************************** 

* 

* is_a_tif f ( . . . 

* This function looks at a file to see if it 

* is a tiff file. First look at the file 

* extension. Next look at the first four 

* bytes of the header. 

* 

***********************************************/ 



int is_a_tiff (f ile_name) 
char *file_name; 

{ 

char *cc; 
char buffer [4] ; 

FILE *fp; 
int ok =0, 
result = 0; 

cc = strstr(file_name, " .tif ") ; 
if (cc == NULL) 
return (result) ; 

fp = f open(f ile_name , "rb"); 
fread(buff er , 1, 4, fp) ; 
f close(fp) ; 

if (buffer [0] == 0x49 && 

buffer [1] == 0x49 && 

buffer [2] == 0x2a && 
buffer [3] == 0x00) 
ok = 1; 
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if (buffer [0] == 0x4d && 
buffer [1] == 0x4d && 
buffer [2] == 0x00 && 

buffer [3] == 0x2a) 
ok = 1; 

if (ok == 0) 

return(result) ; 

result = 1; 
return (result) ; 

> /* ends is_a_tiff */ 



/********************************************* 

* 

* equate_tiff_headers( . . . 

* 

* This function sets the elements of the 

* destination header to the values of the 

* source header. 

*********************************************/ 

equate_tiff_headers(src, dest) 

struct tiff _header_struct *src, *dest; 

{ 

dest->lsb = src->lsb; 

dest->bits_per_pixel = src->bits_per_pixel ; 

dest->image_length = src->image_length; 

dest->image_width = src->image_width; 

dest->strip_of f set = src->strip_of f set ; 

} /* ends equate_tif f _headers */ 



/**************************************** 

* 

* extract_long_from_buff er( . . . 
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* This takes a four byte long out of a 

* buffer of characters. 

* It is important to know the byte order 

* LSB or MSB. 



extract_long_from_buffer(buffer , lsb, start, number) 
char buffer[]; 
int lsb, start; 

long *number; 

{ 

int i ; 

union long_char_union leu; 



if (lsb == 1){ 

leu . l_alpha [0] = 
lcu.l_alpha[l] = 
leu . l_alpha [2] = 
leu . l_alpha [3] = 
} /* ends if lsb = 



if (lsb == 0){ 

lcu.l_alpha[0] = 
lcu.l_alpha[l] = 
lcu.l_alpha[2] = 
lcu.l_alpha[3] = 
} /* ends if lsb = 

♦number = lcu.l_num 



buffer [start+0] ; 
buffer [start+1] ; 
buffer [start+2] ; 
buffer [start+3] ; 
1 */ 



buff er [start+3] ; 
buff er [start+2] ; 
buff er [start+1] ; 
buff er [start+0] ; 
0 */ 



}- /* ends extract_long_from_buf f er */ 



/**************************************** 

* 

* extract_ulong_from_buffer ( . . . 

* 

* This takes a four byte unsigned long 

* out of a buffer of characters. 
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* 

* It is important to know the byte order 

* LSB or MSB. 



****************************************/ 



extract_ulong_from_buf f er (buf f er , lsb, start, 
char buffer[]; 
int lsb, start; 

unsigned long *number; 

{ 

int i; 

union ulong_char_union leu; 



if (lsb == 1){ 
leu. l_alpha[0] 
leu. l_alpha[l] 
leu . l_alpha [2] 
leu. l_alpha [3] 
} /* ends if lsb 

if (lsb == 0){ 
leu. l_alpha[0] 
leu. l_alpha[l] 
leu. l_alpha[2] 
leu. l_alpha [3] 
} /* ends if lsb 



= buf fer [start +0] 
= buf f er [start+1] 
= buffer [start +2] 
= buffer [start +3] 
= 1 */ 



= buffer [start +3] 
= buf fer [start +2] 
= buf fer [start+1] 
= buf fer [start +0] 
= 0 */ 



♦number = lcu.l_num; 

> /* ends extract_ulong_from_buff er */ 



/**************************************** 

* extract_short_from_buf f er ( . . . 

* This takes a two byte short out of a 

* buffer of characters. 

* 

* It is important to know the byte order 

* LSB or MSB. 



number) 
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****************************************/ 

extract_short_from_buff erCbuffer , lsb, start, number) 
char buffer[]; 
int lsb, start; 

short *number ; 

{ 



int i; 

union short_char_union leu; 



if (lsb == 1){ 
leu. s_alpha [0] 
leu. s_alpha[l] 
} /* ends if lsb 

if (lsb == 0){ 
leu. s_alpha [0] 
leu. s_alpha[l] 
} /* ends if lsb 



= buf f er [start+0] ; 
= buf f er [start+1] ; 
= 1 */ 



= buffer [start+1] ; 
= buffer [start+0] ; 
= 0 */ 



♦number = lcu.s_num; 



)■ /* ends extract_short_from_buf f er */ 



/**************************************** 

* 

* extract_ushort_from_buffer( . . . 

* This takes a two byte unsiged short 

* out of a buffer of characters. 

* It is important to know the byte order 

* LSB or MSB. 

* 

****************************************/ 

extract_ushort_from_buffer (buffer , lsb, start, number) 
char buffer[]; 
int lsb, start; 




F.l. CODE LISTINGS FOR CHAPTER 1 



367 



unsigned short *number; 

{ 



int i ; 

union ushort_char_union leu; 
if(lsb == 1){ 

leu. s_alpha[0] = buffer [start +0] ; 
leu. s_alpha[l] = buf f er [start+1] ; 
> /* ends if lsb = 1 */ 



if (lsb == 0){ 

leu. s_alpha[0] = buf fer [start+1] ; 
leu. s_alpha[l] = buf fer [start +0] ; 

} /* ends if lsb =0 */ 

♦number = lcu.s_num; 

} /* ends extract_ushort_from_buffer */ 



/*************************************** 

* ins ert_ short _ int o_buff er ( . . . 

* This inserts a two byte short into a 

* buffer of characters. It does this 

* is LSB order. 

* 

sit**************************************/ 



insert_short_into_buf f er (buff er, start, number) 
char buffer[]; 
int start ; 
short number; 

{ 

union short_char_union lsu; 

lsu.s_num = number; 

buffer [start +0] = lsu. s_alpha[0] ; 
buffer [start+1] = lsu. s_alpha[l] ; 
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> /* ends insert_short_into_buff er */ 



/*************************************** 

* 

* insert_ushort_into_buffer ( . . . 

* 

* This inserts a two byte unsigned 

* short into a buffer of characters. 

* It does this is LSB order. 



insert_ushort_into_buff er(buffer , start, number) 
char buffer[]; 
int start ; 
unsigned short number; 

union ushort_char_union lsu; 



lsu.s_num = number; 

buff er [start+0] = lsu. s_alpha[0] ; 

buff er [start+1] = lsu. s_alpha[l] ; 

} /* ends insert_short_into_buf f er */ 



/*************************************** 

* insert_long_into_buff er ( . . . 

* This inserts a four byte long into a 

* buffer of characters. It does this 

* is LSB order. 

* 

***************************************/ 
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insert_long_into_buffer (buffer , start, number) 
char buffer[]; 
int start ; 
long number; 

{ 

union long_char_union lsu; 

lsu.l_num = number; 

buffer [start +0] = lsu.l_alpha[0] ; 
buffer [start+1] = lsu.l_alpha[l] ; 
buffer [start +2] = lsu.l_alpha[2] ; 
buffer [start +3] = lsu.l_alpha[3] ; 

} /* ends insert_short_into_buff er */ 



/*************************************** 

* 

* insert_ulong_into_buff er( . . . 

* 

* This inserts a four byte unsigned 

* long into a buffer of characters. 

* It does this is LSB order. 

***************************************/ 

insert_ulong_into_buffer (buff er, start, number) 
char buffer[]; 
int start ; 
unsigned long number; 

{ 

union ulong_char_union lsu; 

lsu.l_num = number; 

buffer [start +0] = lsu.l_alpha[0] ; 
buff er [start+1] = lsu.l_alpha[l] ; 
buffer [start +2] = lsu.l_alpha[2] ; 
buffer [start +3] = lsu.l_alpha[3] ; 

> /* ends insert_ulong_into_buff er */ 
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Listing 1.2 - The TIFF I/O Routines 



/sic***************************************** 

* read_bmp_f ile_header ( . . . 

* This function reads the bmpf ileheader 

* structure from the top of a bmp 

* image file. 

******************************************/ 

read_bmp_f ile_header (f ile_name , 

f ile_header) 

char *file_name; 

struct bmpf ileheader *f ile_header ; 

{ 

char buffer [10] ; 
long 11; 
short ss; 

unsigned long ull; 
unsigned short uss; 

FILE *fp ; 

fp = fopen(file_name, "rb"); 
fread(buff er , 1, 2, fp) ; 

extract_ushort_from_buf f er (buf f er , 1, 0, &uss) ; 
f ile_header->f iletype = uss; 

fread(buff er , 1, 4, fp) ; 

extract_ulong_from_buffer (buff er, 1, 0, &ull) ; 
f ile_header->f ilesize = ull; 

fread(buff er , 1, 2, fp) ; 

extract_short_f rom_buf f er (buff er, 1, 0, &ss) ; 
f ile_header->reservedl = ss; 

fread(buff er , 1, 2, fp) ; 

extract_short_f rom_buf f er (buf f er , 1, 0, &ss) ; 
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f ile_header->reserved2 = ss; 
fread(buffer , 1, 4, fp) ; 

extract _ulong_from_buffer (buff er , 1, 0, feull) ; 
f ile_header->bitmapof f set = nil; 

f close (fp) ; 

} /* ends read_bmp_f ile_header */ 



/****************************************** 

* read_bm_header ( . . . 

* 

* This function reads the bitmapheader 

* structure from the top of a bmp 

* image file. 

* 

******************************************/ 

read_bm_header (f ile_name , 
bmheader) 
char *file_name; 
struct bitmapheader * bmheader ; 

{ 

char buffer [10]; 
long 11; 
short ss; 

unsigned long ull; 
unsigned short uss; 

FILE *fp; 

fp = f open(f ile_name , "rb"); 

/**************************************** 

* 

* Seek past the first 14 byte header. 

* 

****************************************/ 



fseek(fp, 14, SEEK_SET) ; 
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fread(buff er , 1, 4, fp) ; 
extract_ulong_f rom_buf f er (buff er, 1 , 
bmheader->size = nil ; 

fread(buff er , 1, 4, fp) ; 
extract_long_from_buf f er (buff er , 1, ( 
bmheader->width = 11; 

fread(buff er , 1, 4, fp) ; 
extract_long_from_buffer (buff er , 1, ( 
bmheader->height = 11; 

fread(buff er , 1, 2, fp) ; 
extract_ushort_from_buf f er (buf f er , 1 
bmheader->planes = uss; 

fread(buff er , 1, 2, fp) ; 
extract_ushort_from_buffer (buffer , 1 
bmheader->bitsperpixel = uss; 

fread(buff er , 1, 4, fp) ; 
extract_ulong_from_buffer (buff er, 1 , 
bmheader->compression = ull; 

fread(buff er , 1, 4, fp) ; 
extract_ulong_f rom_buf f er (buff er, 1 , 
bmheader->sizeof bitmap = ull; 

fread(buff er , 1, 4, fp) ; 
extract_ulong_f rom_buf f er (buf f er , 1 , 
bmheader->horzres = ull; 

fread(buff er , 1, 4, fp) ; 
extract_ulong_f rom_buf f er (buff er, 1 , 
bmheader->vertres = ull; 

fread(buff er , 1, 4, fp) ; 
extract_ulong_f rom_buf f er (buff er, 1 , 
bmheader->colorsused = ull; 

fread(buff er , 1, 4, fp) ; 
extract_ulong_from_buffer (buff er, 1 , 
bmheader->colorsimp = ull; 



0, Scull); 



, fell); 



, & 11 ); 



, 0, &uss) ; 



, 0, Scuss) ; 



0, Scull); 



0, Scull); 



0, Scull); 



0, Scull); 



0, Scull); 



0, Stull) ; 
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f close(fp) ; 

} /* ends read_bm_header */ 



/****************************************** 

* 

* read_color_table( . . . 

* 

* This function reads the color table 

* from a bmp image file. 

* 

sic*****************************************/ 

read_color_table(f ile_name, rgb, size) 
char *file_name; 
struct ctstruct *rgb; 
int size; 

{ 

int i; 

char buffer [10]; 

FILE *fp; 

fp = f open(f ile_name , "rb"); 

fseek(fp, 54, SEEK_SET) ; 

f or (i=0 ; i<size; i++){ 

fread (buffer , 1, 1, fp) ; 
rgb [i] .blue = buffer[0]; 
fread (buffer , 1, 1, fp) ; 
rgb[i] .green = buffer [0] ; 
fread (buffer , 1, 1, fp) ; 
rgb[i] .red = buffer [0] ; 
fread (buffer , 1, 1, fp) ; 

/* fourth byte nothing */ 

} /* ends loop over i */ 

f close(fp) ; 



} /* ends read_color_table */ 




374 



APPENDIX F. SOURCE CODE LISTINGS 



/^Hc*^************************************ 

* read_bmp_image( . . . 

* This function reads the image array 

* from a bmp file. 

* It only works for 8-bit images. 

******************************************/ 

read_bmp_image(file_name, array) 
char *file_name; 



short ** array; 

FILE *fp; 

int i , j ; 

int negative = 0, 

pad = 0 , 

place = 0; 

long colors = 0, 

height = 0, 

position = 0, 

width = 0; 



struct bmpf ileheader file_header; 
struct bitmapheader bmheader; 
struct ct struct rgb [GRAY_LEVELS+1] ; 
unsigned char uc; 

read_bmp_f ile_header (f ile_name , &f ile_header) ; 
read_bm_header(file_name, &bmheader) ; 
if (bmheader .bitsperpixel != 8){ 

printf ("\nCannot read image when bits per" 
"pixel is not 8"); 
exit (1) ; 

} 

if (bmheader . colorsused == 0) 
colors = GRAY_LEVELS + 1; 
else 

colors = bmheader . colorsused; 
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read_color_table(file_name, fcrgb, colors); 
fp = f open(f ile_name , "rb"); 

fseek(fp, f ile_header .bitmapoffset, SEEK_SET) ; 

width = bmheader . width ; 
if (bmheader. height < 0){ 

height = bmheader .height * (-1); 
negative = 1; 

} 

else 

height = bmheader. height; 

pad = calculate_pad (width) ; 

for(i=0; i<height; i++){ 
for(j=0; j<width; j++){ 
place = fgetc(fp); 
uc = (place & Oxff); 
place = uc; 

array [i] [j] = rgb [place] .blue; 

> /* ends loop over j */ 

if (pad != 0){ 

position = fseek(fp, pad, SEEK_CUR) ; 

}■ /* ends if pad 1= 0 */ 

} /* ends loop over i */ 

if (negative == 0) 

flip_image_array (array, height, width); 

} /* ends read_bmp_image */ 



/****************************************** 

* 

* create_bmp_f ile_if _needed( . . . 

* 

* This function allocates a bmp image 

* file it it does not exist. It uses 

* the header information from the input 

* image name . 
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******************************************/ 

create_bmp_f ile_if _needed(in_name , out_name, out_image) 
char in_name [] , out_name [] ; 
short * * out _ image ; 

int length, width; 

struct bmpf ileheader file_header; 

struct bitmapheader bmheader; 

if (does_not_exist (out_name) ) { 

printf("\n\n output file does not exist 7 0 s", 
out_name) ; 

read_bm_header (in_nEime , &bmheader) ; 

create_allocate_bmp_file(out_name, &f ile_header , &bmheader) ; 
printf ("\nBFIN> Created 7,s", out_name) ; 

} /* ends if does_not_exist */ 

> /* ends bmp_f ile_if _needed */ 



/********************************************* 

* create_allocate_bmp_f ile( . . . 

* The calling routine must set the 

* height and width. This routine will set 

* everything else . 

* 

**********************************************/ 

create_allocate_bmp_f ile (f ile_name , 

f ile_header , 
bmheader) 

char *file_name; 

struct bmpf ileheader *f ile_header ; 
struct bitmapheader *bmheader; 

char buffer [100] ; 
int i, pad = 0; 

FILE *fp; 



pad = calculate_pad(bmheader->width) ; 
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bmheader->size 
bmheader->planes 
bmheader->bitsperpixel 
bmheader->compression 
bmheader->sizeof bitmap 

bmheader->horzres 
bmheader->vertres 
bmheader->colorsused 
bmheader- >colorsimp 



= 40; 

= l; 

= 8 ; 

= 0 ; 

= bmheader->height * 

(bmheader->width + pad) ; 
= 300; 

= 300; 

= 256; 

= 256; 



f ile_header->f iletype 
f ile_header->reservedl 
f ile_header->reserved2 
f ile_header->bitmapof f set 

f ile_header->f ilesize 



= 0x4D42 ; 

= 0 ; 

= 0 ; 

= 14 + 

bmheader->size + 
bmheader- >colorsused*4 ; 

= f ile_header->bitmapoff set + 
bmheader->sizeof bitmap ; 



if((fp = f open(f ile_name , "wb")) == NULL){ 
print f ( " \nERR0R Could not create file °/,s", 
f ile_name) ; 
exit (2) ; 



/***** **************************************** 

* 

* Write the 14-byte bmp file header. 

* 

*********************************************/ 

insert_ushort_into_buf f er (buff er , 0, file_header->f iletype) ; 
f write (buffer, 1, 2, fp) ; 

insert_ulong_into_buf f er (buffer , 0, file_header->f ilesize) ; 
fwrite(buff er , 1, 4, fp) ; 

insert_short_into_buffer (buffer , 0, f ile_header->reservedl) ; 
f write (buff er , 1, 2, fp) ; 

insert_short_into_buffer (buffer , 0, f ile_header->reserved2) ; 
f write (buff er , 1, 2, fp) ; 
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insert_ulong_into_buffer (buff er , 0, f ile_header->bitmapoff set) ; 
f write (buff er, 1, 4, fp) ; 



/sit******************************************** 

* Write the 40-byte bit map header . 

*********************************************/ 

insert_ulong_into_buffer (buff er , 0, bmheader->size) ; 
f write (buffer, 1, 4, fp) ; 

insert_long_into_buf f er (buffer , 0, bmheader->width) ; 
f write (buff er, 1, 4, fp) ; 

insert_long_into_buf f er (buffer , 0, bmheader->height) ; 
f write (buffer, 1, 4, fp) ; 

insert_ushort_into_buffer(buff er, 0, bmheader->planes) ; 
f write (buffer, 1, 2, fp) ; 

insert_ushort_into_buffer (buff er, 0, bmheader->bitsperpixel) ; 
f write (buff er, 1, 2, fp) ; 

insert_ulong_into_buf f er (buff er , 0, bmheader->compression) ; 
f write (buff er, 1, 4, fp) ; 

insert_ulong_into_buffer (buff er , 0, bmheader->sizeofbitmap) ; 
f write (buffer, 1, 4, fp) ; 

insert_ulong_into_buffer (buff er , 0, bmheader->horzres) ; 
f write (buffer, 1, 4, fp) ; 

insert_ulong_into_buf f er (buff er , 0, bmheader->vertres) ; 
f write (buff er, 1, 4, fp) ; 

insert_ulong_into_buf f er (buff er , 0, bmheader->colorsused) ; 
f write (buff er, 1, 4, fp) ; 

insert_ulong_into_buffer (buff er , 0, bmheader->colorsimp) ; 
f write (buffer, 1, 4, fp) ; 

/sit******************************************** 
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* Write a blank color table. 

* It has 256 entries (number of colors) 

* that are each 4 bytes . 

* 

sic********************************************/ 

buffer [0] = 0x00; 

f or (i=0 ; i<(256*4); i++) 
f write (buffer , 1, 1, fp) ; 

/********************************************* 

* 

* Write a zero image . 

* 

*********************************************/ 
buffer [0] = 0x00; 

for(i=0; i<bmheader->sizeof bitmap; i++) 
f write (buffer , 1, 1, fp) ; 

f close(fp) ; 

} /* ends create_allocate_bmp_f ile */ 



/****************************************** 

* 

* write_bmp_image( . . . 

* This function writes an image array 

* to a bmp image file. 

* 

******************************************/ 

write_bmp_image(file_name, array) 
char *file_name; 
short ** array; 



{ 



char 

FILE 



♦buffer, c; 
*image_f ile; 
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int pad = 0, 
position; 

int bytes , i , j ; 
long height = 0, width = 0; 
struct bitmapheader bmheader; 
struct bmpf ileheader file_header; 
struct ctstruct rgb [GRAY_LEVELS+1] ; 
union short_char_union scu; 

read_bmp_f ile_header(file_name, &f ile_header) ; 
read_bm_header(file_name, &bmheader) ; 

height = bmheader. height; 
width = bmheader . width ; 
if (height < 0) height = height*(-l); 

buffer = (char *) malloc(width * sizeof(char )); 
for(i=0; i<width; i++) 
buffer [i] = ’ \0 ’ ; 

image_file = f open(f ile_name , "rb+"); 

/sit*************************************** 

* Write the color table first. 

****************************************/ 

position = f seek(image_f ile , 54, SEEK_SET) ; 
f or (i=0; i<GRAY_LEVELS+l ; i++){ 
rgb[i] .blue = i; 
rgb[i] .green = i; 
rgb[i] .red = i; 

} /* ends loop over i */ 

for(i=0; i<bmheader . colorsused; i++){ 
buffer[0] = rgb[i].blue; 
fwrite (buf f er , 1, 1, image_f ile) ; 
buffer[0] = rgb [i] .green; 
fwrite (buffer , 1, 1, image_f ile) ; 
buffer [0] = rgb[i].red; 
fwrite (buffer , 1, 1, image_f ile) ; 
buffer [0] = 0x00; 

fwrite (buffer , 1, 1, image_f ile) ; 

} /* ends loop over i */ 
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position = f seek(image_f ile, 

f ile_header . bitmapof f set , 
SEEK_SET) ; 

pad = calculate_pad (width) ; 

f or (i=0 ; i<height; i++){ 
for(j=0; j<width; j++){ 

if (bmheader .bitsperpixel == 8){ 
scu.s_num = 0; 
if (bmheader .height > 0) 

scu.s_num = array [height-l-i] [j] ; 
else 

scu.s_num = array [i] [j] ; 
buffer[j] = scu. s_alpha[0] ; 

} /* ends if bits_per_pixel == 8 */ 

else{ 

printf ("XnERROR bitsperpixel is not 8"); 
exit (1) ; 

} 

> /* ends loop over j */ 

bytes = fwrite (buffer , 1, width, image_f ile) ; 

if (pad != 0){ 

for(j=0; j<pad; j++) 
buffer [j] = 0x00; 

fwrite (buffer , 1, pad, image_f ile) ; 

> /* ends if pad != 0 */ 

} /* ends loop over i */ 

f close (image_f ile) ; 
free (buffer) ; 

} /* ends write_bmp_image */ 



/********************************************** 

* 

* is_a_bmp( . . . 
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This function looks at a file to see if it 
is a bmp file. First look at the file 
extension. Next look at the filetype to 
ensure it is 0x4d42. 



int is_a_bmp(f ile_name) 
char *file_name; 

char *cc; 

int result = 0; 

struct bmpf ileheader file_header; 

cc = strstr (f ile_name , ".bmp"); 
if (cc == NULL) 
return (result) ; 

read_bmp_f ile_header(file_name, &f ile_header) ; 
if (file_header. filetype != 0x4d42) 
return (result) ; 

result = 1 ; 
return (result) ; 

} /* ends is_a_bmp */ 



/sit***************************************** 

* calculate_pad( . . . 

* This function calculates the pad needed 

* at the end of each row of pixels in a 

* bmp image . 

******************************************/ 

int calculate_pad (width) 
long width; 



int pad = 0 ; 
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pad = ( (width°/ 0 4) == 0) ? 0 : (4-(width°/ 0 4) ) ; 
return (pad) ; 

} /* ends calculate_pad */ 



/********************************************* 

* 

* equate_bmpfileheaders( . . . 

* 

* This function sets the elements of the 

* destination header to the values of the 

* source header. 



*********************************************/ 



equate_bmpfileheaders(src, dest) 

struct bmpf ileheader *src, *dest; 

{ 



dest->f iletype = src->f iletype ; 

dest->f ilesize = src->f ilesize; 

dest->reservedl = src->reservedl ; 

dest->reserved2 = src->reserved2; 

dest->bitmapof f set = src->bitmapoff set ; 

/* ends equate_bmpf ileheaders */ 



/****************************************** 

* f lip_image_array ( . . . 

* 

* This function flips an image array 

* about its horizontal mid-point. 

* 

******************************************/ 

flip_image_array(the_image, rows, cols) 
long cols , rows ; 
short **the_image; 
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int i , j ; 
long rd.2; 
short **temp; 

temp = allocate_image_array(rows, cols); 
rd.2 = rows/2; 
for(i=0; i<rd2; i++){ 

for(j=0; j<cols; j++){ 

temp[rows-l-i] [j] = the_image [i] [j] ; 
> /* ends loop over j */ 

} /* ends loop over i */ 

for(i=rd2; i<rows; i++){ 
for(j=0; j<cols; j++){ 

temp [rows-l-i] [j] = the_image [i] [j] ; 
)- /* ends loop over j */ 

} /* ends loop over i */ 

for(i=0; iCrows; i++) 
for(j=0; j<cols; j++) 

the_image[i] [j] = temp[i] [j] ; 

free_image_array(temp, rows); 

} /* ends f lip_image_array */ 



Listing 1.3 - The BMP I/O Routines 



/************************************************************ 

* file cips.h 

* 

* Functions: This file contains no functions. It 

* contains declarations of the data structures used 

* by the C Image Processing Systems CIPS. 

* Purpose : 

* To declare data structures. 



Modifications : 
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* June 1990 = created 



#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 

#include 



<stdio.h> 

<stdlib.h> 

<io .h> 
<fcntl.h> 

<dos ,h> 

<math . h> 
<malloc.h> 
<string.h> 
<sys\types . h> 
<sys\stat . h> 



#def ine MAX_NAME_LENGTH 80 
#def ine ROWS 100 
#def ine COLS 100 
#def ine GRAY_LEVELS 255 
#def ine PREWITT 1 
#def ine PEAK_SPACE 50 
#def ine PEAKS 30 
#def ine KIRSCH 2 
#def ine SOBEL 3 
#def ine STACK_SIZE 40000 
#def ine STACK_FILE_LENGTH 500 
#def ine F0RGET_IT -50 
#def ine STACK_FILE "c: stack" 



#def ine OTHERC 1 
#undef MSC 

/************************************************** 

* 

* The following struct defines the information 

* you need to read from the tiff file 

* header . 

* 

***************************************************/ 
struct tiff_header_struct{ 

short lsb; 

long bits_per_pixel; 
long image_length; 
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long image_width; 
long strip_off set ; 



* The following struct defines the information 

* you need to read from the bmp file 

* header. 



***************************************************/ 



struct bmpf ileheader{ 

unsigned short filetype; 
unsigned long filesize; 
short reservedl ; 
short reserved2; 
unsigned long bitmapoff set ; 



struct bitmapheader{ 
unsigned long si 
long width; 
long height; 
unsigned short 
unsigned short 
unsigned long 
unsigned long 
unsigned long 
unsigned long 
unsigned long 
unsigned long 



planes; 
bitsperpixel; 
compression; 
sizeof bitmap; 
horzres ; 
vertres; 
colorsused; 
colorsimp; 



struct ctstruct{ 

unsigned char blue; 
unsigned char green; 
unsigned char red; 



/********************************************* 
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* The following unions are used 

* to put the bytes from the header 

* into either an integer or a floating 

* point number. 

**********************************************/ 

union short_char_union{ 
short s_num; 
char s_alpha[2] ; 

>; 

union int_char_union{ 
int i_num; 
char i_alpha[2] ; 

>; 

union long_char_union{ 
long l_num; 
char l_alpha[4] ; 

>; 

union f loat_char_union{ 
float f_num; 
char f_alpha[4] ; 

}; 

union ushort_char_union{ 
short s_num; 
char s_alpha[2] ; 

}; 

union uint_char_union{ 
int i_num; 
char i_alpha[2] ; 

>; 



union ulong_char_union{ 
long l_num; 
char l_alpha[4] ; 



Listing 1.4 - The cips.h Include File 
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/*********************************************** 

* file c:\cips\round.c 

* Functions: This file contains 

* main 

* 

* Purpose : 

* This program takes an image file and 

* rounds if off by copying a part of it 

* to another file. 



External Calls: 

imageio.c - does_not_exit 
get_image_size 
allocate_image_array 
read_image_array 
is_a_tiff 
is_a_bmp 

create_allocate_tiff_f ile 
read_bmp_f ile_header 
read_bm_header 
create_allocate_bmp_f ile 
write_image_array 
free_image_array 



* Modifications: 

* 31 March 1991 - created 

* 8 May 1993 - Made this program 

* command line driven. 

* 6 August 1998 - Made this work with 

* entire image arrays at once. 

* 18 September 1998 - modified to work with 

* all I 0 routines in imageio.c. 

***********************************************/ 
#include "cips.h" 



main ( ar gc , ar gv ) 
int argc ; 
char *argv[] ; 
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{ 

char response [80] ; 

char name [80] , name2 [80] ; 



int i =0, 

ie = 0, 

il = 0, 

3 = 0, 

in_length = 0, 

out_length = 0, 

in_width = 0, 

out_width = 0; 

short **the_image, ** out _ image; 



struct bmpf ileheader bmp_f ile_header ; 

struct bitmapheader bmheader; 

struct tiff _header_struct tiff _f ile_header ; 



/****************************************** 

* 

* Ensure the command line is correct. 

* 

******************************************/ 



if (argc <5 II 

(argc > 5 && argc < 7)){ 

printf ("\nusage: roundoff in-image out-image" 
" length width [il ie] " 

"\n" 

"\n If you do not specify il ie" 

" they will be set to 1 1." 

"\n 11 le will always be" 

" il+length and ie+width" 

"\n") ; 
exit (0) ; 



strcpy(name, argv[l]); 
strcpy (name2 , argv [2] ) ; 
out_length = atoi(argv[3] ) ; 
out_width = atoi(argv[4] ) ; 

if (argc > 5){ 

il = atoi(argv[5] ) ; 
ie = atoi(argv[6] ) ; 

} 
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if (does_not_exist (name) ) { 
printf ("\nERR0R input file °/ 0 s does not exist", 
name) ; 

exit(0) ; 

} 

get_image_size (name , &in_length, &in_width) ; 
the_image = allocate_image_array (in_length, 
in_width) ; 

read_image_array(name, the_image) ; 

/sit***************************************** 



* Create the output image and allocate 

* the output image array. 

******************************************/ 



if (is_a_tif f (name) ) { 

read_tiff_header(name, &tif f _f ile_header) ; 
tiff _f ile_header . image_length = out_length; 
tiff _f ile_header . image_width = out_width; 
create_allocate_tif f _f ile (name2 , 

fetiff _f ile_header) ; 



} 



if (is_a_bmp (name) ) { 

read_bmp_f ile_header (name, 

&bmp_f ile_header) ; 
read_bm_header(name, &bmheader) ; 
bmheader .height = out_length; 
bmheader . width = out_width; 
create_allocate_bmp_f ile (name2 , 

&bmp_f ile_header , 
&bmheader) ; 



out_image = allocate_image_array (out_length, out_width) ; 

/sit***************************************** 



Copy the input image array to the output 
image array per the input parameters. 
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******************************************/ 

for(i=0; i<out_length; i++) 
for(j=0; j<out_width; j++) 

out_image [i] [j] = the_image [i+il] [j+ie] ; 

write_image_array(name2, out_image) ; 

free_image_array(out_image, out_length) ; 
free_image_array(the_image, in_length) ; 

> /* ends main */ 



Listing 1.5 - The round Program 



/************************************************ 

* file tif2bmp.c 

* 

* Functions: This file contains 

* main 

* 

* Purpose : 

* This program creates a bmp file 

* that is just like the input tiff file. 

* External Calls : 

* image io.c 

* does_not_exist 

* get_image_size 

* read_image_array 

* write_image_array 

* free_image_array 

* create_allocate_bmp_f ile 

* Modifications: 

* 27 September 1998 - created 



*************************************************/ 
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#include "cips.h" 



main ( ar gc , ar gv ) 
int argc ; 
char *argv[] ; 

char *cc; 
int 1, w; 
int ok = 0; 
short **the_image; 

struct tif f _header_struct image_header ; 
struct bmpf ileheader bmp_f ile_header ; 

struct bitmapheader bmheader; 

if (argc <3|| argc > 3){ 
printf ( 

"\nusage: tif2bmp tif-f ile-name bmp-f ile-name\n") ; 
exit (-1) ; 

> 

if (does_not_exist (argv [1] ) ) { 
printf ("\nERR0R input file 7«s does not exist", 
argv [1] ) ; 

exit(0) ; 

> 

cc = strstr(argv[l] , ".tif"); 
if (cc == NULL) { 

printf ("XnERROR 7,s must be a tiff file", 
argv [1] ) ; 

exit(0) ; 

} /* ends tif */ 

cc = strstr (argv [2] , ".bmp"); 
if(cc == NULL){ /* create a bmp */ 

printf ("XnERROR 7«s must be a bmp file name", 
argv [2]); 
exit (0) ; 

> 

get_image_size(argv[l] , &1, &w) ; 

the_image = allocate_image_array (1 , w) ; 

bmheader .height = 1; 
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bmheader . width = w ; 
create_allocate_bmp_f ile (argv [2] , 

&bmp_f ile_header , 
&bmheader) ; 

read_image_array(argv [1] , the_image) ; 
write_image_array (argv [2] , the_image) ; 
free_image_array(the_image, 1); 

> /* ends main */ 

Listing 1.6 - The tif2bmp Program 



/************************************************ 

* file bmp2tif.c 

* Functions: This file contains 

* main 

* 

* Purpose : 

* This program creates a tiff file 

* that is just like the input bmp file. 

* 

* External Calls : 

* image io.c 

* does_not_exist 

* get_image_size 

* read_image_array 

* write_image_array 

* free_image_array 

* create_allocate_tif_f ile 

* 

* Modifications: 

* 27 September 1998 - created 

*************************************************/ 



#include "cips.h" 
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main ( ar gc , ar gv ) 
int argc ; 
char *argv[] ; 

■c 

char *cc; 
int 1 , w ; 
int ok = 0; 
short **the_image; 

struct tiff_header_struct image_header ; 
struct bmpf ileheader bmp_f ile_header ; 

struct bitmapheader bmheader; 

if (argc <3|| argc > 3){ 
printf ( 

"\nusage: bmp2tif bmp-file-name tif-f ile-name\n") ; 
exit (-1) ; 

} 

if (does_not_exist (argv [1] ) ) { 
printf ("\nERR0R input file °/ 0 s does not exist", 
argv [1] ) ; 

exit(0) ; 

} 

cc = strstr (argv [1] , ".bmp"); 
if (cc == NULL) { 

printf ("\nERR0R °/ 0 s must be a bmp file", 
argv [1] ) ; 

exit(0) ; 

} /* ends tif */ 

cc = strstr (argv [2] , ".tif"); 
if(cc == NULL){ /* create a bmp */ 

printf ("\nERR0R °/ 0 s must be a tiff file name", 
argv [2]); 
exit (0) ; 

> 

get_image_size(argv[l] , &1, &w) ; 
the_image = allocate_image_array (1 , w) ; 



image_header.lsb = 1; 

image_header .bits_per_pixel = 8; 

image_header . image_length = 1; 

image_header . image_width = w; ; 
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image_header . strip_off set = 1000; 
create_allocate_tif f _f ile(argv [2] , 

&image_header) ; 

read_image_array(argv [1] , the_image) ; 
write_image_array (argv [2] , the_image) ; 
f ree_image_array(the_image , 1); 

} /* ends main */ 

Listing 1.7 - The bmp2tif Program 



F.2 Code Listings for Chapter 2 



* file showi.c 

* Functions: This file contains 

* main 

* show_screen 

* is_in_image 

* 

* Purpose : 

* This file contains the program 

* that shows image numbers on the screen. 

* External Calls: 

* imageio.c - get_image_size 

* read_image_array 

* allocate_image_array 

* free_image_array 

* 

* Modifications: 

* 1 October 1998 - created to work with 

* all I 0 routines in imageio.c. 

*************************************************/ 



#include "cips.h" 
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#def ine SHEIGHT 20 
#def ine SWIDTH 15 

main ( ar gc , ar gv ) 
int argc ; 
char *argv[] ; 

■c 

char in_name [MAX_NAME_LENGTH] ; 

char response [MAX_NAME_LENGTH] ; 

int ie, il, not_done, temp_ie, temp_il; 

long height, width; 

short **the_image; 

/sit***************************************** 

* Ensure the command line is correct. 
******************************************/ 

if (argc != 4){ 

printf ("\nusage: showi input-image il ie"); 
exit(0) ; 

> 

strcpy (in_name , argv [1] ) ; 
il = atoi (argv [2] ) ; 
ie = atoi (argv [3] ) ; 

/sit***************************************** 

* Ensure the input image exists. 

* Allocate an image array. 

* Read the image and show it on the 

* screen. 

******************************************/ 

if (does_not_exist (in_name) ) { 

printf ("\nERR0R input file °/ 0 s does not exist", 
in_name) ; 
exit (0) ; 

} /* ends if does_not_exist */ 

get_image_size(in_name, &height, &width) ; 
the_image = allocate_image_array (height , width); 
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read_image_array(in_name, the_image) ; 

temp_il = il; 
temp_ie = ie; 
not_done = 1 ; 

while (not_done) { 

if (is_in_image(temp_il, temp_ie, height, width) ){ 
il = temp_il; 
ie = temp_ie; 

show_screen(the_image, il, ie) ; 

> /* ends if is_in_image */ 



printf("\n\n x=quit j=down k=up h=left l=right" 



"\nEnter choice 


and press Enter: 


" 


gets (response) ; 


if (response [0] == ’x’ 


1 I response [0] == 


’X 


not_done = 0; 


if (response [0] == ’ j ’ 


1 I response [0] == 


’J 


temp_il = temp_il + 


((3*SHEIGHT)/4) ; 




if (response [0] == ’k’ 


1 I response [0] == 


’K 


temp_il = temp_il - 


((3*SHEIGHT)/4) ; 




if (response [0] == ’h’ 


1 I response [0] == 


’H 


temp_ie = temp_ie - 


( (3*SWIDTH) /4) ; 




if (response [0] == ’1’ 


1 I response [0] == 


’L 



temp_ie = temp_ie + ( (3*SWIDTH) /4) ; 
} /* ends while not_done */ 

free_image_array(the_image, height) ; 

> /* ends main */ 



int is_in_image(il, ie, height, width) 
int il, ie; 
long height, width; 

{ 

int result = 1; 
if (il < 0){ 

printf ("\nil=7 0 d tool small", il) ; 
result = 0; 

} 
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if (ie < 0){ 

printf ("\nie=y«d tool small", ie) ; 
result = 0; 

} 

if ( (il+SHEIGHT) > height ){ 

printf ("\nll=y„d tool big", il+SHEIGHT); 
result = 0; 

> 

if ((ie+SWIDTH) > width ){ 

printf ("\nle=°/,d tool big", ie+SWIDTH); 
result = 0; 

} 

return (result) ; 



> /* ends is_in_image */ 



show_screen(the_image , il, ie) 
int il, ie; 
short **the_image; 

int i, j; 

printf ("\n "); 

for(i=ie-l; i<ie-l+SWIDTH; i++) 
printf ("-°/,3d" , i) ; 

f or (i=il-l ; i<il-l+SHEIGHT; i++){ 
printf ("\n°/ 0 4d>" , i) ; 
f or (j=ie-l ; j<ie-l+SWIDTH; j++){ 
printf ("-"/ 0 3d" , the_image [i] [j] ) ; 

> 

} 

> /* ends show_screen */ 



Listing 2.1 - The Showi Program 
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* file dumpi.c 

* Functions: This file contains 

* main 

* 

* Purpose : 

* This file contains a program that 

* dumps the number values of an image 

* to an ascii text file. 

* External Calls: 

* imageio.c - get_image_size 

* read_image_array 

* allocate_image_array 

* free_image_array 

* 

* Modifications: 

* 1 October 1998 - created to work with 

* all I 0 routines in imageio.c. 

*************************************************/ 

#include "cips.h" 

main(argc, argv) 
int argc; 
char *argv[] ; 

{ 

char in_name [MAX_NAME_LENGTH] ; 

char out_name [MAX_NAME_LENGTH] ; 

char *line, buffer [10]; 

int i , j ; 

long height, width; 

short **the_image ; 

FILE *out_f ile ; 

/****************************************** 

* 



* Ensure the command line is correct . 
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if (argc != 3){ 

printf ("\nusage : dumpi input-image output-file"); 
exit(0) ; 

> 

strcpy (in_name , argv [1] ) ; 
strcpy (out_name , argv [2] ) ; 

/sit***************************************** 

* Ensure the input image exists. 

* Create the output text file. 

* Allocate an image array . 

* Read the image and dump the nubmers 

* to a text file. 

******************************************/ 

if (does_not_exist (in_name) ) { 

printf ("XnERROR input file °/ 0 s does not exist", 
in_name) ; 
exit (0) ; 

} /* ends if does_not_exist */ 

if((out_file = f open(out_name , "wt")) == NULL){ 
printf ("XnERROR Could not open file 7,s", 
out_name) ; 
exit (2) ; 

> 



get_image_size(in_name, &height, &width) ; 
the_image = allocate_image_array (height , width); 
read_image_array (in_name , the_image) ; 

line = malloc( ( (width*4)+7) * sizeof(char *)); 

sprintf (line, " "); 

for(i=0; i<width; i++){ 

sprintf (buff er, "7,4d", i) ; 
strcat(line, buffer); 

> 
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strcat(line, "\n"); 
f puts (line, out_f ile) ; 

for(i=0; i<height; i++){ 
sprintf (line, "°/,5d>", i) ; 
for(j=0; j<width; j++){ 

sprintf (buffer , "-7 0 3d", the_image [i] [j] ) ; 
strcat(line, buffer); 

> 

strcat(line, "\n"); 
fputs(line, out_file); 

} 

f ree_image_array(the_image , height) ; 
f close(out_f ile) ; 

} /* ends main */ 

Listing 2.2 - The Dumpi Program 



F.3 Code Listings for Chapter 3 



#include "cips.h" 

/sit******************************************** 

* 

* half_tone( . . . 

* 

* ep [m] [n] = sum of erros propogated 

* to position (m,n) . 

* eg [m] [n] = total error generated at 

* location (m,n) . 

* 

**********************************************/ 

half _t one (in_ image, out _ image, 
threshold, 
one , zero , 
rows, cols) 
long rows, cols; 
short threshold, one, zero; 
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short **in_ image , * * out _ image ; 

float **eg, **ep; 
float c[2][3], 
sum_p, 
t ; 

int i , j , m , n , xx , yy ; 

c [0] [0] = 0.0; 
c [0] [1] = 0.2; 
c [0] [2] = 0.0; 
c[l] [0] = 0.6; 
c[l] [1] = 0.1; 
c[l] [2] = 0.1; 

/sit********************************************** 



Calculate the total propogated error 
at location (m,n) due to prior 
assignment . 

Go through the input image. If the output 
should be one then display that pixel as such. 
If the output should be zero then display it 
that way. 

Also set the pixels in the input image array 
to l’s and 0’s in case the print option 
was chosen. 



************************************************/ 

eg = malloc(rows * sizeof (float *)); 
for(i=0; i<rows; i++){ 

eg[i] = malloc(cols * sizeof (float )); 
if (eg[i] == , \0 , ){ 

printf ("\n\tmalloc of eg[°/,d] failed", i) ; 

> /* ends if */ 

} /* ends loop over i */ 

ep = malloc(rows * sizeof (float *)); 
for(i=0; iCrows; i++){ 

ep[i] = malloc(cols * sizeof (float )); 
if (ep [i] == ’\0’M 

printf ("\n\tmalloc of ep[°/,d] failed", i) ; 
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> /* ends if */ 

} /* ends loop over i */ 

for(i=0; i<rows; i++){ 
for(j=0; j<cols; j++){ 
eg[i] [j] = 0.0; 
ep [i] [j] = 0.0; 

> 

} 



/sit********************************************* 

* 

* 29 February 1988 - Fix to remove a solid 

* line at the bottom of each region. Loop 

* over R0WS-1 and then draw an extra line. 

* 

**********************************************/ 



for(m=0; m<rows; m++){ 
for(n=0; n<cols; n++){ 

sum_p = 0.0; 
f or (i=0 ; i<2; i++){ 
for(j=0; j<3; j++){ 

xx = m-i+1; 
yy = n-j+1; 

if (xx < 0) xx = 0; 
if(xx >= rows) xx = rows-1; 
if (yy < 0) yy = 0; 
if(yy >= cols) yy = cols-1; 

sum_p = sum_p + c[i] [j] * eg[xx] [yy] ; 
)- /* ends loop over j */ 

} /* ends loop over i */ 

ep [m] [n] = sum_p ; 
t = in_ image [m] [n] + ep [m] [n] ; 

/********************************** 

* 

* Here set the point [m] [n]=one 

* 



sic**********************************/ 
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if(t > threshold) { 

eg[m] [n] = t - threshold*2; 

out _ image [m] [n] = one ; 

} /* ends if t > threshold */ 



/********************************** 

* Here set the point [m] [n]=zero 

***********************************/ 

else{ /* t <= threshold */ 
eg[m] [n] = t; 

out_image [m] [n] = zero ; 

} /* ends else t <= threshold */ 

> /* ends loop over n columns */ 

} /* ends loop over m rows */ 



for(i=0; iCrows; i++){ 
free(eg[i] ) ; 
free(ep[i] ) ; 

> 



> /* ends half_tone */ 



Listing 3.1 - The halLtone Subroutine 



/*********************************************** 

* 

* file halftone. c 

* Functions: This file contains 

* main 




F.3. CODE LISTINGS FOR CHAPTER 3 



405 



* Purpose : 

* This file contains the main calling 

* routine that performs histogram 

* equalization. 



* External Calls: 

* imageio.c - create_image_f ile 

* read_image_array 

* write_image_array 

* get_image_size 

* allocate_image_array 

* free_image_array 

* does_not_exist 

* ht . c - half _tone 



* Modifications: 

* 30 September 1998 - created to work with 

* all I 0 routines in imageio.c. 

* 

*************************************************/ 



#include "cips.h" 

main(argc, argv) 
int argc ; 
char *argv [] ; 

{ 

char in_name [MAX_NAME_LENGTH] ; 
char out_name [MAX_NAME_LENGTH] ; 
int i; 

long height, width; 

short * *the _ image , * * out _ image ; 

short threshold; 



/****************************************** 

* 

* Ensure the command line is correct . 

* 

******************************************/ 

if (argc != 4){ 
printf ( 

"\nusage: halftone input-image output-image threshold"); 
exit (0) ; 
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> 

str cpy ( in_name , argv [1] ) ; 
strcpy (out_name , argv [2] ) ; 
threshold = atoi(argv[3] ) ; 

/sit***************************************** 

* Ensure the input image exists. 

* Create the output image file. 

* Allocate an image array, read the input 

* image, half_tone it, and write 

* the result . 

******************************************/ 

if (does_not_exist (in_name) ) { 

printf ("XnERROR input file °/ 0 s does not exist", 
in_name) ; 
printf ("\n " 

"usage: histeq input-image output-image"); 
exit (0) ; 

> /* ends if does_not_exist */ 

create_image_file(in_name, out_name) ; 
get_image_size(in_name, &height, &width) ; 
the_image = allocate_image_array (height , width); 
out_image = allocate_image_array (height , width); 
read_image_array(in_name, the_image) ; 

half_tone(the_image, out_image, 
threshold, 200, 0, 
height , width) ; 

write_image_array (out_name , out_image) ; 
f ree_image_array (the_image , height) ; 
f ree_image_array (out_image , height) ; 

)- /* ends main */ 



Listing 3.2 - The main Routine for the Halftone Program 
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/*********************************************** 

* file dumpi.c 

* Functions: This file contains 

* main 



* Purpose : 

* This file contains a program that 

* is very similar to dumpi . Dumpi dumps 

* the number values of an image 

* to an ascii text file. 

* This program sends a space to a text 

* file for zeros in the image and an 

* asterisk for non-zeros in the image. 

* External Calls: 

* imageio.c - read_image_array 

* get_image_size 

* allocate_image_array 

* free_image_array 

* does_not_exist 

* 

* Modifications: 

* 3 October 1998 - created to work with 

* all I 0 routines in imageio.c. 



*************************************************/ 



#include "cips.h" 

main(argc, argv) 
int argc; 
char *argv [] ; 

{ 

char in_name [MAX_NAME_LENGTH] ; 

char out_name [MAX_NAME_LENGTH] ; 

char *line, buffer [10]; 

int i , j ; 

long height, width; 

short **the_image; 

FILE *out_f ile ; 



/****************************************** 
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Ensure the command line is correct. 



if (argc != 3){ 

printf ("\nusage : dumpb input-image output-file"); 
exit(O) ; 

} 

strcpy (in_name , argv [1] ) ; 
strcpy (out_name , argv [2] ) ; 

/sit***************************************** 

* Ensure the input image exists. 

* Read the input image and dump the 

* Is and Os to an output text file. 

******************************************/ 

if (does_not_exist (in_name) ) { 

printf ("XnERROR input file °/ 0 s does not exist", 
in_name) ; 
exit (0) ; 

} /* ends if does_not_exist */ 

if((out_file = f open(out_name , "wt")) == NULL){ 
printf ("XnERROR Could not open file 7,s", 
out_name) ; 
exit (2) ; 

> 



get_image_size(in_name, &height, &width) ; 
the_image = allocate_image_array (height , width); 
read_image_array (in_name , the_image) ; 

line = malloc( (width+7) * sizeof(char *)); 

sprintf (line, " "); 

for(i=0; i<width; i++){ 

sprintf (buff er, "7,4d", i) ; 
strcat(line, buffer); 

> 
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strcat(line, "\n"); 
f puts (line, out_f ile) ; 

for(i=0; i<height; i++){ 
sprintf (line, "°/,5d>", i) ; 
for(j=0; j<width; j++){ 

if (the_image [i] [j] == 0) 
strcat(line, " ") ; 
else 

strcat(line, "*"); 

> 

strcat(line, "\n"); 
fputs(line, out_file); 

} 

f ree_image_array(the_image , height) ; 
f close(out_f ile) ; 

> /* ends main */ 



Listing 3.3- The dumpb Program 



F.4 Code Listings for Chapter 4 



/************************************************** 

* file hist.c 

* Functions: This file contains 

* calculate_histogram 

* perform_histogram_equalization 

* zero_histogram 

* smooth_histogram 

* 

* Purpose: These functions calculate 

* the histogram of an input image array. 

* They also modify an image by equalizing 

* its histogram. 



Modifications : 
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* July 86 - ported to IBM-PC 

* August 1990 - modified for use in the 

* C Image Processing System 

* March 1992 - removed the hardwired values 

* of 100 and replaced them with ROWS 

* and COLS. There are still some 

* hardwired numbers in this file, but 

* they deal with displaying a histogram. 

* October 4, 1992 - added the smooth histogram 

* function. 

* April 22, 1998 - modified routines to work 

* with an entire image in one array. 



#include "cips.h" 

#def ine PRINT_WIDTH 80 
#def ine FORMFEED >\014> 



/***************************************** 

* zero_histogram( . . . 

* This function clears or zeros a 

* histogram array. 

* 

******************************************/ 

zero_histogram (histogram, gray_levels) 
int gray_levels ; 

unsigned long histogram [] ; 

{ 

int i ; 

for(i=0; i<gray_levels; i++) 
histogram [i] = 0; 

> /* ends zero_histogram */ 



/***************************************** 
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* 

* calculate_histogram( . . . 

* This function calculates the histogram 

* for an input image array. 

******************************************/ 

calculate_histogram(image, histogram, length, width) 
int length, width; 
short ** image; 
unsigned long histogram [] ; 

{ 

long i, j ; 
short k; 

for(i=0; Klength; i++){ 
for(j=0; j<width; j++){ 
k = image [i] [j] ; 

histogram [k] = histogram [k] + 1; 

} 

} 

} /* ends calculate_histogram */ 



/******************************************** 

* 

* smooth_histogram( . . . 

* 

* This function smoothes the input histogram 

* and returns it . It uses a simple averaging 

* scheme where each point in the histogram 

* is replaced by the average of itself and 

* the two points on either side of it. 

sic********************************************/ 

smooth_histogram (histogram, gray_levels) 
int gray_levels ; 

unsigned long histogram [] ; 

{ 

int i; 

unsigned long new_hist [gray_levels] ; 
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zero_histogram(new_hist, gray_levels) ; 

new_hist [0] = (histogram [0] + histogram [1] )/2; 

new_hist [gray_levels] = 

(histogram [gray_levels] + 
histogram [gray_levels-l] )/2; 

for(i=l; i<gray_levels-l ; i++){ 
new_hist[i] = (histogram [i— 1] + 
histogram [i] + 

histogram [i+1] )/3; 

> 

for(i=0; i<gray_levels; i++) 
histogram [i] = new_hist[i]; 

} /* ends smooth_histogram */ 



/***************************************** 

* 

* perf orm_histogram_equalization( . . . 

* 

* This function performs histogram 

* equalization on the input image array. 

* 

******************************************/ 

perf orm_histogram_equalizat ion (image, 

histogram, 
gray_levels, 
new_grays , 
length, 
width) 

int gray_levels, new_grays; 
long length, width; 
short ** image; 
unsigned long histogram [] ; 

1 

int i, 

j> 

k; 

unsigned long sum. 
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sum_of_h[gray_levels] ; 
double constant ; 
sum = 0 ; 

for(i=0; i<gray_levels ; i++){ 

sum = sum + histogram [i] ; 

sum_of_h[i] = sum; 



/* constant = new # of gray levels div by area */ 
constant = (float) (new_grays)/ (float) (length*width) ; 
for(i=0; i<length; i++){ 
for(j=0; j<width; j++){ 

k = image [i] [j] ; 

image[i][j] = sum_of_h[k] * constant; 

} 

} 

> /* ends perform_histogram_equalization */ 



hist_long_clear_buffer (string) 
char string [] ; 

{ 

int i ; 

f or (i=0 ; i<300; i++) 
string [i] = ’ 

} 



Listing 4.1 - The Histogram Routines 



/*********************************************** 

* 

* file histeq.c 

* Functions: This file contains 

* main 
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* Purpose : 

* This file contains the main calling 

* routine that performs histogram 

* equalization. 



* External Calls : 

* imageio.c - create_image_f ile 

* read_image_array 

* write_image_array 

* get_image_size 

* allocate_image_array 

* free_image_array 

* hist.c - calculate_histogram 

* perf orm_histogram_equalization 

* Modifications: 

* 18 September 1998 - created to work with 

* all I 0 routines in imageio.c. 

* 

*************************************************/ 



#include "cips.h" 

main ( ar gc , ar gv ) 
int argc ; 
char *argv[] ; 

■c 

char in_name [MAX_NAME_LENGTH] ; 
char out_name [MAX_NAME_LENGTH] ; 
char response [MAX_NAME_LENGTH] ; 
int i; 

long height, width; 
short **the_image; 

unsigned long histogram [GRAY_LEVELS+1] ; 



/sit***************************************** 

* Ensure the command line is correct. 
******************************************/ 



if (argc < 3){ 

printf("\n usage: histeq input-image output-image") ; 
exit(O) ; 




F.4. CODE LISTINGS FOR CHAPTER 4 



415 



} 

strcpy(in_name, argv[l]); 
strcpy(out_name , argv[2] ) ; 

/****************************************** 

* Ensure the input image exists. 

* Create the output image file. 

* Allocate an image array and call the 

* histogram operators. 

* 

sic*****************************************/ 

if (does_not_exist (in_name) ) { 

printf ("\nERR0R input file °/»s does not exist", 
in_name) ; 
printf ("\n " 

"usage: histeq input-image output-image") ; 
exit (0) ; 

} /* ends if does_not_exist */ 

create_image_file(in_name, out_name) ; 
get_image_size(in_name, &height, &width) ; 
the_image = allocate_image_array (height , width); 
read_image_array(in_name , the_image) ; 

for(i=0; i<GRAY_LEVELS+l ; i++) histogram[i] = 0; 

calculate_histogram(the_image, histogram, 
height , width) ; 

perform_histogram_equalization( 

the_image, histogram, 

256, 250, 
height , width) ; 

write_image_array (out_name , the_image) ; 
f ree_image_array(the_image , height) ; 

> /* ends main */ 



Listing 4.2 - The main Routine of the histeq Program 
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/************************************************ 



* 

* 

* 

* 

* 



* 

* 

* 

* 

* 

* 



* 

* 

* 

* 

* 



file himage . c 

Functions: This file contains 
main 
vline 
hline 

Purpose : 

This program calculates the histogram 
of an image and puts the picture of 
that histogram in an output image. 

External Calls: 
image io . c 

does_not_exist 
create_allocate_tiff _f ile 
create_allocate_bmp_f ile 
get_image_size 
allocate_image_array 
f ree_image_array 
read_image_array 
write_image_array 
hist . c 

calculate_histogram 

Modifications: 

7 Arpil 1992 - created 
15 August 1998 - modified to work with 
an entire image array at once. 

22 September 1998 - modified to work with 
all I 0 routines in imageio.c. 



#include "cips.h" 

#def ine W 300 
#def ine L 300 
#def ine UP 5 
#def ine LEFT 5 
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#def ine SPOT 200 



main(argc, argv) 
int argc ; 
char *argv [] ; 

{ 

char *cc; 

int i , j , amount ; 

long 1, w; 

int ok = 0; 

long length, width; 

short **image, **hist; 

struct tiff _header_struct image_header ; 

struct bmpf ileheader bmp_f ile_header ; 

struct bitmapheader bmheader; 

unsigned long histogram [GRAY_LEVELS+1] ; 

int count ; 

unsigned long max, scale; 

max = 0 ; 
count = 0; 

if (argc < 3 ){ 
printf ( 

"\nusage: himage image-file histogram-f ile [length width] \n"); 
exit (-1) ; 

} 

if (does_not_exist (argv [1] ) ) { 
printf ("\nERR0R input file °/ 0 s does not exist", 
argv [1] ) ; 

exit (0) ; 

} 

if (argc >= 4) 

1 = atoi(argv[3] ) ; 
else 

1 = L; 

if (argc >= 5) 

w = atoi(argv[4] ) ; 
else 

w = W; 
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cc = strstr(argv[2] , ".tif"); 
if(cc != NULL){ /* create a tif */ 



ok = 1 ; 

image_header . lsb = 1 ; 

image_header . bits_per_pixel = 8; 

image_header . image_length = 1 ; 

image_header . image_width = w; ; 

image_header.strip_offset = 1000; 



create_allocate_tif f _f ile (argv [2] , 

& image _header) ; 

} /* ends tif */ 

cc = strstr (argv [2] , ".bmp"); 
if(cc != NULL){ /* create a bmp */ 
ok = 1 ; 

bmheader .height = 1; 
bmheader . width = w ; 
create_allocate_bmp_f ile (argv [2] , 

&bmp_f ile_header , 
&bmheader) ; 

> /* ends tif */ 



if (ok == 0){ 

printf ("\nERR0R input file neither tiff nor bmp"); 
exit (0) ; 

} 

get_image_size (argv [1] , &length, &width) ; 
image = allocate_image_array (length, width); 
hist = allocate_image_array(l, w) ; 
read_image_array(argv[l] , image) ; 

for(i=0; i<l; i++) 
for(j=0; j<w; j++) 
hist [i] [j] = 0; 

for(i=0; i<GRAY_LEVELS+l ; i++) histogram[i] = 0; 

calculate_histogram(image , histogram, 
length, width); 



hline(hist, 1-UP, LEFT, LEFT+GRAY_LEVELS+1) ; 
vline(hist, LEFT+ 50, l-UP+2, 1-UP); 
vline(hist, LEFT+100, l-UP+2, 1-UP); 
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vline (hist , LEFT+150, l-UP+2, 1-UP); 
vline (hist, LEFT+200, l-UP+2, 1-UP); 
vline (hist, LEFT+250, l-UP+2, 1-UP); 

f or (i=0 ; i<GRAY_LEVELS+l ; i++) 
if (histogram [i] > max) 
max = histogram [i] ; 

if (max > (1-UP-UP)) 

scale = max/ (1-5*UP) ; 
else 

scale = 1; 

printf("\n max=°/ 0 ld scale=°/ 0 ld" ,max, scale); 

f or (i=0 ; i<GRAY_LEVELS+l ; i++){ 
amount = histogram [i] /scale; 
if (amount > 0){ 

vline (hist , i+LEFT, 1-UP, 1-UP-amount); 
> /* ends if not zero */ 

> /* ends loop over i GRAY_LEVELS */ 

write_image_array(argv[2] , hist) ; 

free_image_array (image , length); 
f ree_image_array(hist , 1); 

} /* ends main */ 



vline (image, ie, il, 11) 
int ie, il, 11; 
short ** image ; 

{ 

int i , j ; 

f or(i=il; i>=ll; i — ) 
image [i] [ie] = SPOT; 



> /* ends vline */ 
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hline (image, il, ie, le) 
int il, ie, le; 
short ** image; 

{ 

int i , j ; 



for(i=ie; i<=le; i++) 
image [il] [i] = SPOT; 

> /* ends hline */ 



Listing 4.3 - The himage Program 



/*********************************************** 

* file d:\cips\side.c 

* Functions: This file contains 

* main 

* print_side_usage 

* 

* Purpose : 

* This file contains the main calling 

* routine for a program which 

* takes two images and pastes them 

* together side by side or top to bottom 

* into a new image file. 

* There are three files: two input files 

* (filel and file2), and one output 

* file (file3). 

* 

* External Calls : 

* read_image_array 

* write_image_array 

* get_image_size 

* allocate_image_array 

* f ree_image_array 
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* create_allocate_tiff_f ile 

* create_allocate_bmp_f ile 

* read_bm_header 

* read_bmp_f ile_header 

* read_bm_header 

* Modifications: 

* 19 April 1992 - created 

* 13 August 1998 - modified to work on an 

* entire image at one time. 

* 19 September 1998 - modified to work with 

* all I 0 routines in imageio.c. 

*************************************************/ 
#include "cips.h" 



main(argc, argv) 
int argc ; 
char *argv[] ; 



char method [80], name 1 [80], name2 [80] , name3 [80] ; 

int i , j ; 

long lengthl, length2, length.3, 

widthl , width2 , width3 ; 
short **imagel, **image2, **image3; 

struct bmpf ileheader bmp_f ile_header ; 

struct bitmapheader bmheader; 

struct tiff _header_struct tiff _f ile_header ; 



* 

* Interpret the command line parameters. 

* 

*******************************************/ 



if (argc != 5){ 

print_side_usage() ; 
exit (0) ; 

} 



strcpy (namel , argv[l]); 
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strcpy (name2 , argv [2] ) ; 
strcpy (name3 , argv [3] ) ; 
strcpy (method , argv [4] ) ; 

if (method [0] != ’t’ kk 

method [0] != ’T’ kk 

method [0] ! = ’ s ’ kk 

method [0] ! = ’ S ’ ) { 

printf ("\nERR0R: Did not choose a valid method"); 
print_side_usage() ; 
exit (4) ; 



if (does_not_exist (namel) ) { 

printf ("\nERR0R: Input file °/,s does not exist", 
namel) ; 

print_side_usage() ; 
exit (2) ; 



if (does_not_exist (name2) ) { 

printf ("XnERROR: Input file °/,s does not exist", 
name2) ; 

print_side_usage() ; 
exit (3) ; 

} 

/******************************************* 

* 

* Look at the sizes of the two input 

* files. Ensure they are the correct 

* dimensions and set the dimensions 

* of the output image. 



get_image_size (namel , &lengthl, &widthl) ; 
get_image_size(name2, &length2, &width2) ; 

if (method [0] == ’T* II method [0] == ’t’M 
if (widthl ! = width2){ 

printf ("XnERROR: input images are not " 
"the same width"); 
exit (4) ; 

)- /* ends if widths are unequal */ 
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else{ 

width3 = widthl ; 

len.gth.3 = lengthl + length.2; 

} /* ends else widths are ok */ 

} /* ends if method is T */ 

if (method [0] == ’S’ || method [0] == , s , ){ 
if (lengthl != Iength2){ 

printf ("\nERR0R: input images are not " 

"the same length"); 
exit (4) ; 

> /* ends if lengths are unequal */ 

else{ 

width3 = widthl + width2; 
length3 = lengthl; 

)- /* ends else lengths are ok */ 

} /* ends if method is S */ 

/sit****************************************** 

* 

* Create the output image to be the same 

* type as the first input image. 

* 

********************************************/ 



if (is_a_tif f (namel) ) { 

read_tif f _header (namel , &tif f _f ile_header) ; 
tif f _f ile_header . image_length = length3; 
tiff_file_header.image_width = width3; 
create_allocate_tif f _f ile (name3 , 

&tiff_f ile_header) ; 



} 



if (is_a_bmp (namel) ){ 

read_bmp_file_header (namel , 

&bmp_f ile_header) ; 
read_bm_header (namel , &bmheader) ; 
bmheader .height = length3; 
bmheader .width = width3; 
create_allocate_bmp_f ile (name3 , 

&bmp_f ile_header , 
&bmheader) ; 
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/******************************************* 

* Allocate the image arrays and read the 

* two input images. 

*********************************************/ 

imagel = allocate_image_array (lengthl , widthl) ; 
image2 = allocate_image_array(length2, width2) ; 
image3 = allocate_image_array(length3, width3) ; 

read_image_array(namel, imagel); 
read_image_array(name2, image2) ; 

/******************************************* 

* First do the side by side option. 

* 

*********************************************/ 

if (method [0] == ’S’ II method [0] == ’s’) { 

for(i=0; iclengthl; i++) 
for(j=0; j<widthl; j++) 

image3[i] [j] = imagel [i] [j] ; 

for(i=0; i<length2; i++) 
for(j=0; j<width2; j++) 

image 3 [i] [j+widthl] = image2[i] [j] ; 

} /* ends if side-by-side method */ 



/******************************************** 
* Now do the top to bottom option. 



if (method [0] == ’T’ || method [0] == ’t’M 

for(i=0; i<lengthl; i++) 
for(j=0; j<widthl ; j++) 

image3[i] [j] = imagel [i] [j] ; 




F.5. CODE LISTINGS FOR CHAPTER 5 



425 



for(i=0; i<length2; i++) 
for(j=0; j<width2; j++) 

image3 [i+lengthl] [j] = image2 [i] [j] ; 



} /* ends top-to-bottom method */ 

write_image_array(naine3, image3) ; 



f ree_image_array (imagel , lengthl) 
free_image_array(image2, length2) 
free_image_array(image3, length3) 



} /* ends main */ 



print_side_usage () 

{ 

printf ( 

"\n" 

"\n usage: side in-file-1 in-file-2 " 
"out-file method" 

"\n where method is Top-to-bottom " 

"or Side-by-side" 

"\n") ; 

} 

Listing 4.4 - The side Program 



F.5 Code Listings for Chapter 5 



/sit********************************************** 

* 

* file edge.c 

* 

* Functions: This file contains 

* detect_edges 

* setup _masks 

* get_edge_options 

* perf orm_convolution 
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Purpose : 

These functions implement several 
types of basic edge detection. 



utility. c - fix_edges 



27 January 1991 - created 
27 December 1992 - Fixed an error in 
how I did the 8 direction edge 
detectors. I was only detecting 
edges in the last (the 7) 
direction. I fixed this by 
setting the out_image to the sum 
only if the sum was greater than 
the out_image. This is in the 
function perform_convolution. 

22 April 1998 - added capability to 
work an entire image at one time. 



#include "cips.h" 

short quick_mask [3] [3] = { 

{- 1 , 0 , - 1 >, 

{ 0, 4, 0}, 

{- 1 , 0 , - 1 } >; 



/*************************** 



Directions for the masks 



/* masks for kirsch operator */ 
short kirsch_mask_0 [3] [3] = { 

{5, 5, 5} , 
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{-3, 0, -3}, 

{-3, -3, -3} >; 

short kirsch_mask_l [3] [3] = { 

{-3, 5, 5}, 

{-3, 0, 5} , 

{-3, -3, -3} >; 

short kirsch_mask_2 [3] [3] = { 



4-3, 


-3, 


5}, 


4-3, 


0 , 


5}, 


4-3, 


-3, 


5} >; 



short kirsch_mask_3 [3] [3] = { 

{-3, -3, -3}, 

{-3, 0, 5} , 

{-3, 5, 5} >; 

short kirsch_mask_4 [3] [3] = { 

{-3, -3, -3}, 

{-3, 0, -3}, 

{ 5, 5, 5} >; 

short kirsch_mask_5 [3] [3] = { 

{-3, -3, -3}, 

{ 5, 0, -3}, 

{ 5, 5, -3} >; 

short kirsch_mask_6 [3] [3] = { 

{ 5, -3, -3}, 

{ 5, 0, -3}, 

{ 5, -3, -3} >; 

short kirsch_mask_7 [3] [3] = { 



{ 5, 


5, 


-3}, 


{ 5, 


0 , 


-3}, 


4-3, 


-3, 


-3} >; 



/* masks for prewitt operator */ 




428 



APPENDIX F. SOURCE CODE LISTINGS 



short prewitt_mask_0 [3] [3] = { 

{ 1 , 1 , 1 >, 

{ 1 , -2, 1>, 

{- 1 , - 1 , - 1 } }; 

short prewitt_mask_l [3] [3] = { 

{ 1 , 1 , 1 >, 

{ 1, -2, -1}, 

{ 1 , - 1 , - 1 } >; 

short prewitt_mask_2 [3] [3] = { 

{ 1, 1, -1>, 

{ 1, -2, -1>, 

{ 1, 1, -1} }; 

short prewitt_mask_3 [3] [3] = { 

{ 1 , - 1 , - 1 >, 

{ 1, -2, -1>, 

{ 1 , 1 , 14 >; 

short prewitt_mask_4 [3] [3] = { 

{- 1 , - 1 , - 1 >, 

{ 1 , - 2 , 1 }, 

{ 1, 1, 1> }; 

short prewitt_mask_5 [3] [3] = { 

{- 1 , - 1 , 1 >, 

{-1, -2, 1}, 

{ 1 , 1 , 1 > >; 

short prewitt_mask_6 [3] [3] = { 

{- 1 , 1 , 1 >, 

{-1, -2, 1>, 

{-1, 1, 14 }; 

short prewitt_mask_7 [3] [3] = { 

{ 1 , 1 , 1 >, 

{-1, -2, 1>, 

{-l, -1, 1> }; 
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/* 


masks 


for 


sobel operator 


short 


sobel. 


_mask_0 [3] [3] 


= 


{ 




4 1, 


2, 


1}, 








{ 0, 


0, 


0}, 








4-1, 


-2, 


-1} >; 






short 


sobel. 


.mask 


_i [3] [3] 


= 


{ 




{ 2, 


1, 


0}, 








{ 1, 


0, 


-1>, 








{ 0, 


-1, 


-2} >; 






short 


sobel. 


_mask_2 [3] [3] 


= 


{ 




4 1, 


0, 


-1}, 








{ 2, 


0, 


-2}, 








{ 1, 


0, 


-1} >; 






short 


sobel. 


_mask_3 [3] [3] 


= 


{ 




4 0, 


-1, 


-2}, 








{ 1, 


0, 


-1}, 








{ 2, 


1, 


0} >; 






short 


sobel. 


_mask_4 [3] [3] 


= 


{ 




4-1, 


-2, 


-1>, 








4 0, 


0, 


0}, 








{ 1, 


2, 


1} >; 






short 


sobel. 


_mask_5 [3] [3] 


= 


{ 




4-2, 


-1, 


0}, 








4-1, 


0, 


i>, 








4 0, 


1, 


2} >; 






short 


sobel. 


.mask 


_6 [3] [3] 


= 


{ 




4-1, 


0, 


1>, 








4-2, 


0, 


2}, 








4-1, 


0, 


1} >; 






short 


sobel. 


.mask 


_7 [3] [3] 


= 


{ 




{ 0, 


1, 


2}, 








{-1, 


0, 


1}, 








4-2, 


- 1 , 


0} >; 
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/************************************************** 



detect_edges ( . . 



This function detects edges in an area of one 
image and sends the result to another image 
on disk. It reads the input image from disk, 
calls a convolution function, and then writes 
the result out to disk. If needed, it 
allocates space on disk for the output image. 



detect_edges (the_image , out_image , 

detect_type, threshold, high, 
rows, cols, bits_per_pixel) 
int detect_type, high, threshold; 
long rows, cols, bits_per_pixel; 
short **the_image, **out_image; 



{ 

perf orm_convolution(the_image , out_image , 

detect_type, threshold, 
rows, cols, 
bits_per_pixel, 
high) ; 

f ix_edges(out_image, 1, rows, cols); 

> /* ends detect_edges */ 



/********************************************************** 

* perf orm_convolution( . . . 

* This function performs convolution between the input 

* image and 8 3x3 masks. The result is placed in 
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* the out_image . 

********************************************************/ 

per f orm_ c onvolut i on ( image , out _ image , 

detect_type, threshold, 

rows, cols, bits_per_pixel, high) 

short **image, 

** out _ image ; 

int detect_type, high, threshold; 
long rows, cols, bits_per_pixel ; 

{ 



char response [80] ; 
int a, 

b, 

i , 

is_present, 

j. 

sum; 

short mask_0 [3] [3] , 
mask_l [3] [3] , 
mask_2 [3] [3] , 
mask_3 [3] [3] , 
mask_4 [3] [3] , 
mask_5 [3] [3] , 
mask_6 [3] [3] , 
mask_7 [3] [3] , 
max, 
min, 
new_hi , 
new_low; 



setup_masks(detect_type, mask_0, mask_l, 

mask_2, mask_3, mask_4, mask_5, 
mask_6, mask_7) ; 



new_hi = 250 ; 
new_low = 16; 
if (bits_per_pixel == 4){ 
new_hi = 10; 
new_low = 3; 
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min = 0; 
max = 255; 

if (bits_per_pixel == 4) 
max = 16; 

/* clear output image array */ 
for(i=0; iCrows; i++) 
for(j=0; j<cols; j++) 
out_image[i] [j] = 0; 



printf("\n "); 



f or (i=l; i<rows-l; i++){ 
if C (i°/.10) == 0){ printf ("7,4d" , i) ; > 
for(j=l; j<cols-l; j++){ 



/* Convolve for all 8 directions */ 
/* 0 direction */ 
sum = 0; 

for(a=-l; a<2; a++){ 
for (b=-l ; b<2; b++){ 

sum = sum + image [i+a] [j+b] * 
mask_0[a+l] [b+1] ; 

} 

> 

if (sum > max) sum = max; 
if (sum < 0) sum = 0; 

/* Correction 12-27-92 
see file header for 
details. */ 

if (sum > out_image [i] [j] ) 
out_image [i] [j] = sum; 



/* 1 direction */ 
sum = 0; 

for(a=-l; a<2; a++){ 
f or (b=-l ; b<2; b++){ 

sum = sum + image [i+a] [j+b] * mask_l[a+l] [b+1] ; 
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> 

> 



if (sum > max) sum = max; 
if (sum < 0) sum = 0; 

/* Correction 12-27-92 
see file header for 
details. */ 

if (sum > out_image[i] [j]) 
out_image [i] [j] = sum; 



/* 2 direction */ 
sum = 0; 

for(a=-l; a<2; a++){ 
f or (b=-l ; b<2; b++){ 

sum = sum + image [i+a] [j+b] * mask_2[a+l] [b+1] ; 

} 

> 

if (sum > max) sum = max; 
if (sum < 0) sum = 0; 

/* Correction 12-27-92 
see file header for 
details. */ 

if (sum > out_image [i] [j] ) 
out_image [i] [j] = sum; 



/* 3 direction */ 
sum = 0; 

for(a=-l; a<2; a++){ 
f or (b=-l ; b<2; b++){ 

sum = sum + image [i+a] [j+b] * mask_3[a+l] [b+1] ; 

} 

> 

if (sum > max) sum = max; 
if (sum < 0) sum = 0; 

/* Correction 12-27-92 
see file header for 
details. */ 

if (sum > out_image[i] [j]) 
out_image [i] [j] = sum; 
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/* 4 direction */ 
sum = 0; 

for(a=-l; a<2; a++){ 
for (b=-l ; b<2; b++){ 

sum = sum + image [i+a] [j+b] * mask_4[a+l] [b+1] ; 

> 

> 

if (sum > max) sum = max; 
if (sum < 0) sum = 0; 

/* Correction 12-27-92 
see file header for 
details. */ 

if (sum > out_image [i] [j] ) 
out_image [i] [j] = sum; 

/* 5 direction */ 
sum = 0; 

for(a=-l; a<2; a++){ 
for(b=-l; b<2; b++){ 

sum = sum + image [i+a] [j+b] * mask_5[a+l] [b+1] ; 

> 

> 

if (sum > max) sum = max; 
if (sum < 0) sum = 0; 

/* Correction 12-27-92 
see file header for 
details. */ 

if (sum > out_image[i] [j]) 
out_image[i] [j] = sum; 

/* 6 direction */ 
sum = 0; 

for(a=-l; a<2; a++){ 
for (b=-l ; b<2; b++){ 

sum = sum + image [i+a] [j+b] * mask_6[a+l] [b+1] ; 

} 

> 

if (sum > max) sum = max; 
if (sum < 0) sum = 0; 

/* Correction 12-27-92 
see file header for 
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details. */ 

if (sum > out_image [i] [j] ) 
out_image [i] [j] = sum; 

/* 7 direction */ 
sum = 0; 

for(a=-l; a<2; a++){ 
f or (b=-l ; b<2; b++){ 

sum = sum + image [i+a] [j+b] * mask_7 [a+1] [b+1] ; 

> 

> 

if (sum > max) sum = max; 
if (sum < 0) sum = 0; 

/* Correction 12-27-92 
see file header for 
details. */ 

if (sum > out_image[i] [j]) 
out_image [i] [j] = sum; 

> /* ends loop over j */ 

} /* ends loop over i */ 

/* if desired, threshold the output image */ 
if (threshold == 1){ 

for(i=0; i<rows; i++){ 
for(j=0; j<cols; j++){ 

if (out_image [i] [j] > high){ 

out_image [i] [j] = new_hi; 

} 

else{ 

out_image [i] [j] = new_low; 

} 

> 

> 

} /* ends if threshold == 1 */ 

} /* ends perform_convolution */ 
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/^***************************************** 

* quick_edge( . . . 

* This function finds edges by using 

* a single 3x3 mask. 

*******************************************/ 



quick_edge(the_image, out_image, 

threshold, high, rows, cols, bits_per_pixel) 
int high, threshold; 

long rows, cols, bits_per_pixel; 

short **the_image , ** out _ image ; 

short a, b, i, j, k, 

length, max, new_hi, new_low, 
sum, width; 



new_hi = 250; 
new_low = 16; 
if (bits_per_pixel == 4){ 
new_hi = 10 ; 
new_low = 3; 

> 

max = 255; 

if (bits_per_pixel == 4) 
max = 16; 

/* Do convolution over image array */ 
printf ("\n") ; 
f or (i=l; i<rows-l; i++){ 

if ( (i°/.10) == 0) printf ("°/,d ", i) ; 
f or (j=l ; j<cols-l; j++){ 
sum = 0; 

for(a=-l; a<2; a++){ 
f or (b=-l ; b<2; b++){ 
sum = sum + 

the_image [i+a] [j+b] * 
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quick_mask[a+l] [b+1] ; 

> 

> 

if (sum < 0) sum = 0; 
if (sum > max) sum = max; 
out_image [i] [j] = sum; 

> /* ends loop over j */ 

> /* ends loop over i */ 

/* if desired, threshold the output image */ 
if (threshold == 1){ 

for(i=0; i<rows; i++){ 
for(j=0; j<cols; j++){ 

if (out_image [i] [j] >high){ 

out_image [i] [j] = new_hi; 

} 

else{ 

out_image [i] [j] = new_low; 

} 

> 

> 

} /* ends if threshold == 1 */ 

f ix_edges(out_image, 1, 

rows-1, cols-1) ; 

} /* ends quick_edge */ 



/*********************************************** 

* setup _masks( .. . 

* 

* This function copies the mask values defined 

* at the top of this file into the mask 

* arrays mask_0 through mask_7. 

* 

***********************************************/ 
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setup_masks (detect_type , mask_0, mask_l, mask_2, mask_3, 
mask_4, mask_5, mask_6, mask_7) 
int detect_type ; 
short mask_0 [3] [3] , 
mask_l [3] [3] , 
mask_2 [3] [3] , 
mask_3 [3] [3] , 
mask_4 [3] [3] , 
mask_5 [3] [3] , 
mask_6 [3] [3] , 
mask_7 [3] [3] ; 

{ 

int i , j ; 

if (detect_type == KIRSCH){ 
for(i=0; i<3; i++){ 
f or (j=0 ; j<3; j++){ 

mask_0[i] [j] = kirsch_mask_0 [i] [j] ; 
mask_l [i] [j] = kirsch_mask_l [i] [j] ; 
mask_2[i] [j] = kirsch_mask_2 [i] [j] ; 
mask_3[i] [j] = kirsch_mask_3 [i] [j] ; 
mask_4[i] [j] = kirsch_mask_4 [i] [j] ; 
mask_5[i] [j] = kirsch_mask_5 [i] [j] ; 
mask_6[i] [j] = kirsch_mask_6 [i] [j] ; 
mask_7[i] [j] = kirsch_mask_7 [i] [j] ; 

} 

> 

} /* ends if detect_type == KIRSCH */ 



if (detect_type == PREWITT) { 
for(i=0; i<3; i++){ 
f or (j=0 ; j<3; j++){ 

mask_0[i][j] = prewitt_mask_0 [i] [j] 
mask_l[i][j] = prewitt_mask_l [i] [j] 
mask_2[i][j] = prewitt_mask_2 [i] [j] 
mask_3[i] [j] = prewitt_mask_3 [i] [j] 
mask_4[i] [j] = prewitt_mask_4 [i] [j] 
mask_5[i] [j] = prewitt_mask_5 [i] [j] 
mask_6[i] [j] = prewitt_mask_6 [i] [j] 
mask_7[i] [j] = prewitt_mask_7 [i] [j] 

> 
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> 

} /* ends if detect_type == PREWITT */ 



if (detect_type == SOBEL){ 
for(i=0; i<3; i++){ 
f or (j=0 ; j<3; j++){ 



mask_0[i][j] = 
mask_l[i][j] = 
mask_2 [i] [j] = 
mask_3 [i] [j] = 
mask_4 [i] [j] = 
mask_5[i][j] = 
mask_6[i][j] = 
mask_7[i][j] = 



sobel_mask_0 [i] 
sobel_mask_l [i] 
sobel_mask_2 [i] 
sobel_mask_3 [i] 
sobel_mask_4 [i] 
sobel_mask_5 [i] 
sobel_mask_6 [i] 
sobel_mask_7 [i] 



[j]; 

[j]; 

[j]; 

[j]; 

[j]; 

[j]; 

[j]; 

[j]; 



> 

} /* ends if detect_type == SOBEL */ 



> /* ends setup_masks */ 



/*Hc*^^*^*^************************************* 

* f ix_edges( . . . 

* 

* This function fixes the edges of an image 

* array after convolution was performed. 

* It copies the points near the edge of the 

* array out to the edge of the array. 

***********************************************/ 

f ix_edges(im, w, rows, cols) 
int w; 
short **im; 
long rows, cols; 

{ 

int i , j ; 

printf ("\nFIX> rows=°/,ld cols=7 0 ld w=7«d" , rows , cols ,w) ; 
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/* four corners */ 
for(i=w; i>0; i — ){ 
im[i-l] [i— 1] = im[i] [i] ; 
im[i-l] [cols-(i-l)] = im[i] [cols-l-(i-l)] ; 
im[rows-(i-l)] [i— 1] = im[rows-l-(i-l)] [i] ; 
im[rows-(i-l)] [cols-(i-l)] = im[rows-l-(i-l)] [cols-1- 
} /* ends four corners loop */ 

for(i=0; iCrows; i++){ 
f or ( j=w; j >0 ; j— ){ 
im[i] [j-1] = im[i] [j] ; 
im[i] [cols-j] = im[i] [cols-j-1] ; 

> 



for(j=0; j<cols; j++){ 
for(i=w; i>0; i — ){ 
im[i-l] [j] = im[i] [j] ; 
im[rows-i] [j] = im[rows-i-l] [j] ; 

> 

> 

> /* ends fix_edges */ 



Listing 5.1 - The Edge Detector Subroutines 



F.6 Code Listings for Chapter 6 

#include "cips.h" 
short g7 [7] [7] = { 



•c 


0, 


0, 


-1, 


-1, 


-1, 


0, 


0}, 




o, 


-2, 


-3, 


-3, 


-3, 


-2, 


o>, 


•c 


-i, 


-3, 


5, 


5, 


5, 


-3, 


-11, 




-l, 


-3, 


5, 


16, 


5, 


-3, 


-1>, 


•c 


-l, 


-3, 


5, 


5, 


5, 


-3, 


-11, 


{ 


o, 


-2, 


-3, 


-3, 


-3, 


-2, 


o>, 


{ 


0, 


0, 


-1, 


-1, 


-1, 


0, 


0}>; 



short g9 [9] [9] = { 



(i— i) ] ; 
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{ 


0, 


-2, 


-3, 


-3, 


-3, 


-3, 


-3, -2, 


o>. 


{ 


0, 


-3, 


-2, 


-1, 


-1, 


-1, 


-2, -3, 


o>. 


{ 


-1, 


-3, 


-1, 


9, 


9, 


9, 


-1, -3, 


-11, 


{ 


-1, 


-3, 


-1, 


9, 


19, 


9, 


-1, -3, 


-11, 


{ 


-1, 


-3, 


-1, 


9, 


9, 


9, 


-1, -3, 


-11, 


{ 


0, 


-3, 


-2, 


-1, 


-1, 


-1, 


-2, -3, 


o>. 


{ 


0, 


-2, 


-3, 


-3, 


-3, 


-3, 


-3, -2, 


o>. 


{ 


0, 


0, 


0, 


-1, 


-1, 


-1, 


0, 0, 


0}}; 



short e_mask [3] [3] = { 
{-9, 0, -9}, 

{ 0, 36, 0}, 

1-9, 0, -9} >; 

short contrast [3] [3] = { 



{ 


1 , 


1 , 


11 , 


{ 


1 , 


1 , 


11 , 


{ 


1 , 


1 , 


1 » 



short enhance_mask [3] [3] = { 

1 - 1 , 0 , - 1 }, 

{ 0, 4, 0}, 

{- 1 , 0 , - 1 } >; 



/************************************************** 

* 

* homogeneity ( . . . 

* 

* This function performs edge detection by looking 

* for the absence of an edge. The center of a 

* 3x3 area is replaced by the absolute value of 

* the max difference between the center point 

* and its 8 neighbors. 



homogeneity (the_image , out_image , 

rows, cols, bits_per_pixel, 
threshold, high) 
int high, threshold; 
short **the_image, **out_image; 
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long rows, cols, bits_per_pixel; 

int a, b, absdiff, absmax, diff, i, j, 

length, max, max_diff, new_hi, new_low, width; 



new_hi = 250; 
new_low = 16; 
if (bits_per_pixel == 4){ 
new_hi = 10 ; 
new_low = 3; 

> 

max = 255; 

if (bits_per_pixel == 4) 
max = 16; 

for(i=0; iCrows; i++){ 
for(j=0; j<cols; j++){ 
out_image[i] [j] = 0; 

> 

} 

for(i=l; i<rows-l; i++){ 

if( (i°/ 0 10) == 0) printf ("°/ 0 4d" , i) ; 
for(j=l; j<cols-l; j++){ 

max_diff = 0; 
f or (a=-l ; a<=l; a++){ 
f or (b=-l ; b<=l ; b++){ 

diff = the_image [i] [j] - 

the_image [i+a] [j+b] ; 
absdiff = abs(diff); 
if (absdiff > max_diff) 
max_diff = absdiff ; 

} /* ends loop over b */ 

}• /* ends loop over a */ 

out_image[i] [j] = max_diff; 

> /* ends loop over j */ 

> /* ends loop over i */ 
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/* if desired, threshold the output image */ 
if (threshold == 1){ 

for(i=0; i<rows; i++){ 
for(j=0; j<cols; j++){ 

if (out_image [i] [j] > high){ 

out_image [i] [j] = new_hi; 

} ' 

else{ 

out_image [i] [j] = new_low; 

} 

> 

> 

} /* ends if threshold == 1 */ 

} /* ends homogeneity */ 



/************************************************** 

* 

* difference_edge( . . . 

* 

* This function performs edge detection by looking 

* at the differences in the pixels that surround 

* the center point of a 3x3 area. It replaces the 

* center point with the absolute value of the 

* max difference of : 

* upper left - lower right 

* upper right - lower left 

* left - right 

* top - bottom 

* 

***************************************************/ 

dif f erence_edge (the_image , out_image , 

rows, cols, bits_per_pixel, 
threshold, high) 
int high, threshold; 

short **the_image, **out_image; 
long rows, cols, bits_per_pixel; 

4 

int a, b, absdiff, absmax, diff, i, j, 

length, max, max_diff, new_hi, new_low, width; 

new_hi = 250 ; 
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new_low = 16; 
if (bits_per_pixel == 4){ 
new_hi = 10 ; 
new_low = 3; 

} 

max = 255; 

if (bits_per_pixel == 4) 
max = 16; 

for(i=0; iCrows; i++) 
for(j=0; j<cols; j++) 
out_image[i] [j] =0; 

for(i=l; i<rows-l; i++){ 

if( (i°/ 0 10) == 0) printf ("°/ 0 4d" , i) ; 
for(j=l; j<cols-l; j++){ 

max_diff = 0; 

absdiff = abs(the_image[i-l] [ j — 1] - 
the _ image [i+1] [j+1] ) ; 

if (absdiff > max_diff) max_diff = absdiff; 

absdiff = abs (the_image [i-1] [j+1] - 
the_image [i+1] [j-1] ) ; 

if (absdiff > max_diff) max_diff = absdiff; 

absdiff = abs (the_image [i] [j-1] - 
the_image [i] [j+1]) ; 

if (absdiff > max_diff) max_diff = absdiff; 

absdiff = abs(the_image[i-l] [j] - 
the_image [i+1] [j] ) ; 

if (absdiff > max_diff) max_diff = absdiff; 



out_image [i] [j] = max_diff; 

]■ /* ends loop over j */ 

} /* ends loop over i */ 



/* if desired, threshold the output image */ 
if (threshold == 1){ 
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for(i=0; iCrows; i++){ 
for(j=0; j<cols; j++){ 

if (out_image [i] [j] >high){ 

out_image [i] [j] = new_hi; 

} 

else{ 

out_image [i] [j] = new_low; 

} 

> 

> 

} /* ends if threshold == 1 */ 

} /* ends diff erence_edge */ 



/************************************************ 

* 

* gaussian_edge( . . . 

* 

*************************************************/ 

gaussian_edge (the_image , out_image , 

rows, cols, bits_per_pixel , 
size, threshold, high) 
int high, size, threshold; 
short **the_image, 

** out _ image; 

long rows, cols, bits_per_pixel; 

char response [80] ; 
long sum; 

int a, b, absdiff, absmax, diff, i, j, 

length, lower, max, new_hi, new_low, 
scale, starti, stopi, start j , stopj , 
upper, width; 

new_hi = 250 ; 
new_low = 16; 
if (bits_per_pixel == 4){ 
new_hi = 10; 
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new_low = 3; 

} 

max = 255; 

if (bits_per_pixel == 4) 
max = 16 ; 



if (size == 7){ 
lower = -3; 
upper = 4 ; 

starti = 3; 

start j = 3; 

stopi = rows-3; 
stopj = cols-3; 
scale = 2; 

} 



if (size == 9){ 
lower = -4; 
upper = 5 ; 

starti = 4; 

start j = 4; 

stopi = rows-4; 
stopj = cols-4; 
scale = 2; 

> 



for(i=0; iCrows; i++) 
for(j=0; j<cols; j++) 
out_image [i] [j] = 0; 



f or (i=starti ; i<stopi; i++){ 

if ( (i"/ 0 10) == 0) printf(" i=°/ 0 d", i) ; 
f or (j=start j ; j<stopj; j++){ 

sum = 0; 

for(a=lower; a<upper; a++){ 
for(b=lower; b<upper; b++){ 
if (size == 7) 

sum = sum + the_image [i+a] [j+b] * 
g7 [a+3] [b+3] ; 
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if (size == 9) 

sum = sum + the_image [i+a] [j+b] * 
g9 [a+4] [b+4] ; 

} /* ends loop over a */ 

)• /* ends loop over b */ 

if (sum < 0) sum = 0; 
if (sum > max) sum = max; 
out_image[i] [j] = sum; 

> /* ends loop over j */ 

} /* ends loop over i */ 

/* if desired, threshold the output image */ 
if (threshold == 1){ 

for(i=0; i<rows; i++){ 
for(j=0; j<cols; j++){ 

if (out_image [i] [j] > high){ 

out_image [i] [j] = new_hi; 

} 

else{ 

out_image [i] [j] = new_low; 

} 

> 

> 

} /* ends if threshold == 1 */ 

} /* ends gaussian_edge */ 



/************************************************** 

* contrast_edge( . . . 

* The edge detector uses the basic quick edge 

* detector mask and then divides the result 

* by a contrast smooth mask. This implements 

* Johnson’s contrast based edge detector. 

* 

***************************************************/ 

contrast_edge (the_image , out_image , 

rows, cols, bits_per_pixel , 
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threshold, high) 
int high, threshold; 
short **the_image , ** out _ image ; 
long rows, cols, bits_per_pixel; 

int ad , d ; 

int a, b, absdiff, absmax, diff, i, j, 
length, max, new_hi, new_low, 
sum_d, sum_n, width; 

new_hi = 250; 
new_low = 16; 
if (bits_per_pixel == 4){ 
new_hi = 10 ; 
new_low = 3; 

} 

max = 255; 

if (bits_per_pixel == 4) 
max = 16; 

for(i=0; iCrows; i++) 
for(j=0; j<cols; j++) 
out_image[i] [j] =0; 

for(i=l; i<rows-l; i++){ 

if( (i°/ 0 10) == 0) printf ("°/ 0 4d" , i) ; 
for(j=l; j<cols-l; j++){ 

sum_n = 0; 
sum_d = 0; 

for(a=-l; a<2; a++){ 
f or (b=-l ; b<2; b++){ 

sum_n = sum_n + the_image [i+a] [j+b] * 
e_mask[a+l] [b+1] ; 

sum_d = sum_d + the_image [i+a] [j+b] * 
contrast [a+1] [b+1] ; 

} 

} 



d = sum_d / 9; 
if (d == 0) 
d = 1; 
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out_image [i] [j] = sum_n/d; 

if (out_image [i] [j] > max) 
out_image [i] [j] = max; 
if (out_image [i] [j] < 0) 
out_image [i] [j] = 0; 



> /* ends loop over j */ 

> /* ends loop over i */ 



/* if desired, threshold the output image */ 
if (threshold == 1){ 

for(i=0; i<rows; i++){ 
for(j=0; j<cols; j++){ 

if (out_image [i] [j] > high){ 

out_image [i] [j] = new_hi; 

} 

else{ 

out_image [i] [j] = new_low; 

} 

> 

> 

} /* ends if threshold == 1 */ 

}■ /* ends contrast_edge */ 



/******************************************* 

* range ( . . 

* This edge detector performs the 

* range operation. 

* It replaces the pixel at the center of a 

* 3x3, 5x5, etc. area with the max - min 

* for that area. 

* 

*******************************************/ 
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range (the_image, out_image, 

rows, cols, bits_per_pixel , 
size, threshold, high) 
int high, threshold, size; 
short **the_image , 

** out _ image ; 

long rows, cols, bits_per_pixel; 

int a, b, count, i, j, k, 

new_hi, new_low, length, 
sd2, sd2pl, ss, width; 
short * e 1 ement s ; 

sd2 = size/2; 
sd2pl = sd2 + 1; 

* Allocate the elements array large enough 

* to hold size*size shorts. 

**********************************************/ 
ss = size*size; 

elements = (short *) malloc(ss * sizeof (short) ) ; 

new_hi = 250; 
new_low = 16; 
if (bits_per_pixel == 4){ 
new_hi = 10 ; 
new_low = 3; 

> 

/*************************** 

* Loop over image array 
****************************/ 

printf ("\n") ; 

f or(i=sd2; i<rows-sd2; i++){ 

if ( (i°/,10) == 0) printf ("°/,4d ", i) ; 
f or (j=sd2 ; j<cols-sd2; j++){ 
count = 0; 

for(a=-sd2; a<sd2pl; a++){ 
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for(b=-sd2; b<sd2pl; b++){ 

elements [count] = the_image [i+a] [j+b] ; 
count++; 

} 

} 

sort_elements (elements, &ss) ; 
out_image [i] [j] = elements [ss-1] -elements [0] ; 
> /* ends loop over j */ 

} /* ends loop over i */ 

/* if desired, threshold the output image */ 
if (threshold == 1){ 

for(i=0; i<rows; i++){ 
for(j=0; j<cols; j++){ 

if (out_image [i] [j] > high){ 

out_image [i] [j] = new_hi; 

} 

else{ 

out_image [i] [j] = new_low; 

} 

} 

> 

} /* ends if threshold == 1 */ 

free (elements) ; 

} /* ends range */ 



/************************************************** 

* variance ( . . . 

* This function replaces the pixel in the center 

* of a 3x3 area with the square root of the sum 

* of squares of the differences between the 

* center pixel and its eight neighbors. 

* 

***************************************************/ 

variance (the_image , out_image, 

rows, cols, bits_per_pixel , 
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threshold, high) 
int high, threshold; 
short **the_image , 

** out _ image ; 

long rows, cols, bits_per_pixel; 

int a, b, i, j, length, 

max, new_hi, new_low, width; 
long diff; 
unsigned long sum, tmp; 

new_hi = 250; 
new_low = 16; 
if (bits_per_pixel == 4){ 
new_hi = 10 ; 
new_low = 3; 

} 

max = 255; 

if (bits_per_pixel == 4) 
max = 16; 

f or (i=l ; i<rows-l ; i++){ 

if ( (i°/.10) == 0) printf ("°/,4d" , i) ; 
for(j=l; j<cols-l; j++){ 
sum = 0; 

for(a=-l; a<=l; a++){ 

for(b=-l; b<=l; b++){ 
if ( a!=0 && b!=0){ 

diff = 0; 

diff = the_image[i] [j] - 

the_image [i+a] [j+b] ; 
tmp = diff *diff ; 
sum = sum + tmp ; 

> 

} 

> 

if (sum < 0) 

printf ("\nWHAT? sum < 0, "/old ,diff=°/od ", sum, diff); 
sum = sqrt(sum); 
if (sum > max) sum = max; 
out_image[i] [j] = sum; 

> /* ends loop over j */ 

> /* ends loop over i */ 
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/* if desired, threshold the output image */ 
if (threshold == 1){ 

for(i=0; i<rows; i++){ 
for(j=0; j<cols; j++){ 

if (out_image [i] [j] > high){ 

out_image [i] [j] = new_hi; 

} 

else{ 

out_image [i] [j] = new_low; 

} 

> 

> 

} /* ends if threshold == 1 */ 

} /* ends variance */ 



/******************************************* 

* 

* enhance_edges( . . . 

* This function enhances the edges in an 

* input image and writes the enhanced 

* result to an output image . It operates 

* much the same way as detect_edges 

* except it uses only one type of mask. 

* 

* The threshold and high parameters perform 

* a different role in this function. The 

* threshold parameter does not exist . The 

* high parameter determines if the edge is 

* strong enough to enhance or change the 

* input image . 

* sic*****************************************/ 



enhance_edges (the_image , out_image , 

rows, cols, bits_per_pixel, high) 
int high ; 
short **the_image. 
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** out _ image; 

long rows, cols, bits_per_pixel; 

{ 

int a , b , i , j , k , 

length, max, new_hi, 
new_lo, sum, width; 

max = 255; 

if (bits_per_pixel == 4) 
max = 16; 



/* Do convolution over image array */ 
for(i=l; i<rows-l; i++){ 

if( (i°/ 0 10) == 0) printf("°/ 0 d ", i) ; 
for(j=l; j<cols-l; j++){ 
sum = 0; 

for(a=-l; a<2; a++){ 
f or (b=-l ; b<2; b++){ 
sum = sum + 

the_image [i+a] [j+b] * 
enhance_mask[a+l] [b+1] ; 

} 

> 

if (sum < 0) sum = 0; 
if (sum > max) sum = max; 
if (sum > high) 

out_image [i] [j] = max; 
else 

out_image [i] [j] = the_image [i] [j] ; 
> /* ends loop over j */ 

} /* ends loop over i */ 

} /* ends enhance_edges */ 

Listing 6.1 - Edge Detectors 



/*********************************************** 
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* file medge.c 

* Functions: This file contains 

* main 



* 

* 

* 

* 

* 



* 

* 

* 

* 

* 

* 



* 

* 

* 

* 

* 



Purpose : 

This file contains the main calling 
routine that performs edge 
detection. 

External Calls: 

imageio.c - create_image_f ile 
r e ad_ image _ array 
write_image_array 
get_image_size 
allocate_image_array 
free_image_array 

edge.c - 

detect_edges 
setup _masks 
get_edge_options 
perform_convolution 
quick_edge 
edge2 . c - 

homogeneity 
dif f erence_edge 
contrast_edge 
range 
variance 
edge3.c - 

gauss ian_edge 
enhance_edges 

Modifications : 

18 September 1998 - created to work with 
all I 0 routines in imageio.c. 



*************************************************/ 



#include "cips.h" 



main(argc, argv) 
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int argc; 
char *argv[] ; 

char image_name [MAX_NAME_LENGTH] ; 
char image_name2 [MAX_NAME_LENGTH] ; 
char response [MAX_NAME_LENGTH] ; 
int i , j ; 

int high, size, threshold, type; 
long bits_per_pixel, height, width; 
short **the_image, **out_image; 
struct tiff_header_struct image_header ; 



/sit***************************************** 

* Ensure the command line is correct. 

******************************************/ 

if (argc <4 | | argc > 7){ 

show_edge_usage() ; 
exit (0) ; 

> 

strcpy(image_name, argv[2]); 
strcpy (image_name2 , argv [3] ) ; 

if (does_not_exist (image_name) ) { 
printf ("\nERR0R input file 7 0 s does not exist", 
image _name) ; 

exit(0) ; 

> 

create_image_file(image_name, image_name2) ; 
get_image_size (image_name , &height, &width) ; 
get_bitsperpixel(image_name, &bits_per_pixel) ; 
the_image = allocate_image_array (height , width); 
out_image = allocate_image_array (height , width); 
read_image_array(image_name, the_image) ; 

if (argv[l] [0] == ’q’ II argv[l][0] == ’Q’H 
threshold = atoi (argv [4] ) ; 
high = atoi (argv [5] ) ; 

quick_edge(the_image, out_image, 
threshold, high, 
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height, width, 
bits_per_pixel) ; 

} /* ends if q */ 

if (argv [1] [0] == ’b’ II argv[l][0] == ’B’){ 
threshold = atoi (argv [4] ) ; 
high = atoi (argv [5] ) ; 

type = atoi (argv [6] ) ; 

perf orm_convolution( 

the_image, out_image, 
type, threshold, 
height, width, 
bits_per_pixel, high); 

} /* ends if b */ 

if (argv [1] [0] == ’h’ || argv[l][0] == ’H’){ 
threshold = atoi (argv [4] ) ; 
high = atoi (argv [5] ) ; 

homogeneity (the_image , out_image , 
height, width, 
bits_per_pixel , 
threshold, high); 

> /* ends if h */ 

if (argv [1] [0] == ’d’ II argv[l][0] == ’D’){ 
threshold = atoi (argv [4] ) ; 
high = atoi (argv [5] ) ; 

dif f erence_edge (the_image , out_image , 
height, width, 
bits_per_pixel , 
threshold, high) ; 

} /* ends if d */ 

if (argv [1] [0] == ’c' II argv[l] [0] == ’C’M 
threshold = atoi (argv [4] ) ; 
high = atoi (argv [5] ) ; 

contrast_edge (the_image , out_image , 
height, width, 
bits_per_pixel , 
threshold, high); 

} /* ends if c */ 

if (argv [1] [0] == ’r’ II argv[l][0] == ’R’){ 
threshold = atoi (argv [4] ) ; 
high = atoi (argv [5] ) ; 
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size = atoi(argv[6] ) ; 

range (the_image, out_image, 
height, width, 
bits_per_pixel , 
size, threshold, high); 
} /* ends if r */ 



if (argv[l] [0] == ’v’ II argv[l][0] == ’V’){ 
threshold = atoi (argv [4] ) ; 
high = atoi (argv [5] ) ; 

variance (the_image, out_image, 
height, width, 
bits_per_pixel , 
threshold, high); 

} /* ends if v */ 

if (argv[l] [0] == ’g’ II argv[l][0] == ’G'H 
threshold = atoi (argv [4] ) ; 

high = atoi (argv [5] ) ; 

size = atoi (argv [6] ) ; 

gaussian_edge (the_image , out_image , 
height, width, 
bits_per_pixel, 
size, threshold, high); 

} /* ends if g */ 

if (argv[l] [0] == ’q’ II argv[l][0] == ’Q’){ 
high = atoi (argv [4] ) ; 

enhance_edges (the_image , out_image , 
height, width, 
bits_per_pixel, high); 

> /* ends if q */ 

write_image_array(image_name2, out_image) ; 
f ree_image_array (the_image , height) ; 
f ree_image_array (out_image , height) ; 

)■ /* ends main */ 



show_edge_usage () 

4 

printf ("\nusage of medge" 

"\n Quick edge detector" 

"\nmedge Q in-file out-file threshold (1/0) high" 
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"\n Sobel Kirsch Prewitt edge detectors" 
"\nmedge B in-file out-file threshold (1/0) 
"\n Homogeneity edge detector" 

"Ynmedge H in-file out-file threshold (1/0) 
"\n Difference edge detector" 

"Ynmedge D in-file out-file threshold (1/0) 
"\n Contrast edge detector" 

"\nmedge C in-file out-file threshold (1/0) 
"\n Range edge detector" 

"\nmedge R in-file out-file threshold (1/0) 
"\n Variance edge detector" 

"\nmedge V in-file out-file threshold (1/0) 
"\n Guassian edge detector" 

"Ynmedge G in-file out-file threshold (1/0) 
"\n Enhance edges" 

"Ynmedge E in-file out-file high " 

"\n") ; 

} /* ends show_edge_usage */ 



high type (1,2,3) " 



high" 



high" 



high" 

high size (3, 5, 7. . .) w 
high" 

high size (7 or 9)" 



Listing 6.2 - The medge Program 



F.7 Code Listings for Chapter 7 



/*********************************************** 

* 

* file filter. c 

* Functions: This file contains 

* filter_image 

* median_f ilter 

* setup_f ilters 

* get_f ilter_options 

* median_of 

* fsort_elements 

* f swap 

* 

* Purpose : 

* These functions implement several 

* types of basic spatial frequency 

* filters. 




APPENDIX F. SOURCE CODE LISTINGS 

External Calls: 

utility. c - fix_edges 

Modifications : 

15 February 1992 - created 
22 April 1998 - added capability to 
work an entire image at one time. 

sic************************************************/ 

#include "cips.h" 



/******************************************* 
* Define the filter masks. 
*******************************************/ 

short lpf _f ilter_6 [3] [3] = 

{ { 0 , 1 , 0 }, 

-Cl, 2, 1>, 

-CO, 1, 0}>; 

short lpf _f ilter_9 [3] [3] = 

{ -a, 1, 1>, 

-Cl, 1, 1>, 

-Cl, 1, l»; 

short lpf _f ilter_10 C3] [3] = 

{ -Cl, 1, 1}, 

-Cl, 2, 1>, 

-Cl, 1, l}>; 

short lpf _f ilter_16 [3] [3] = 

{ -Cl, 2, 1>, 

-C2, 4, 2} , 

-Cl, 2, 1»; 

short lpf _f ilter_32 C3] [3] = 

{ -Cl, 4, 1>, 

{4, 12, 4>, 

-Cl, 4, 1»; 




short hpf _f ilter_l C3] [3] = 
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{ { o, -l, o>, 

{-1, 5, -1>, 

{ 0 , - 1 , 0 »; 

short hpf _f ilter_2 [3] [3] = 

{ {- 1 , - 1 , - 1 }, 

{-1, 9, -1>, 

{-1, -1, -1}}; 

short hpf _f ilter_3 [3] [3] = 

{ { 1, -2, 1>, 

{-2, 5, -2>, 

{ 1 , - 2 , 1 »; 



/******************************************* 

* 

* f ilter_image( . . . 

* 

* This function filters an image by using 

* a single 3x3 mask. 

* sic*****************************************/ 



f ilter_image (the_image , out_image , 

rows, cols, bits_per_pixel, 
filter, type, low_high) 
int type ; 

short filter [3] [3] , 

**the_image, 

** out _ image; 
char low_high [] ; 
long rows, cols, bits_per_pixel; 

{ 

int a, b, d, i, j, k, 

length, max, sum, width; 

setup_f ilters(type, low_high, filter); 



d = type ; 
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if (type == 2 | | type == 3) d = 1 ; 



max = 255; 

if (bits_per_pixel == 4) 
max = 16; 

/* Do convolution over image array */ 
printf ("\n") ; 
f or (i=l ; i<rows-l ; i++){ 

if ( (i7.10) == 0) printf ("°/,d ", i) ; 
f or (j=l ; j<cols-l; j++){ 
sum = 0; 

for(a=-l; a<2; a++){ 
f or (b=-l ; b<2; b++){ 
sum — sum + 

the_image [i+a] [j+b] * 
filter [a+1] [b+1] ; 

} 

} 

sum = sum/d; 

if (sum < 0) sum = 0; 
if (sum > max) sum = max; 
out_image[i] [j] = sum; 

)- /* ends loop over j */ 

} /* ends loop over i */ 

f ix_edges (out_image , 1, rows-1, cols-1) ; 

}■ /* ends filter_image */ 



/******************************************* 

* median_f ilter ( . . 

* This function performs a median filter 

* on an image using a size (3x3, 5x5, etc.) 

* specified in the call. 

*******************************************/ 



median_f ilter (the_image , out_image , 
rows, cols, size) 



int 



size ; 
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short **the_image, 

** out _ image; 
long rows, cols; 

{ 

int a , b , count , i , j , k , 

length, sd2, sd2pl, ss, width; 
short *elements; 

sd2 = size/2; 
sd2pl = sd2 + 1; 

* 

* Allocate the elements array large enough 

* to hold size*size shorts. 

* 

**********************************************/ 
ss = size*size; 

elements = (short *) malloc(ss * sizeof (short) ) ; 

/*************************** 

* 

* Loop over image array 

* 

sic***************************/ 

printf ("\n") ; 

f or(i=sd2; i<rows-sd2; i++){ 

if( (i°/ 0 10) == 0) printf (" 0 / 0 d ", i) ; 
f or (j=sd2 ; j<cols-sd2; j++){ 
count = 0; 

for(a=-sd2; a<sd2pl; a++){ 
for(b=-sd2; b<sd2pl; b++){ 

elements [count] = the_image [i+a] [j+b] ; 
count++; 

> 

} 

out_image [i] [j] = median_of (elements, &ss) ; 

> /* ends loop over j */ 

} /* ends loop over i */ 

free (elements) ; 

f ix_edges(out_image, sd2, rows-1, cols-1) ; 
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y /* ends median_f ilter */ 



/*********************************************** 

* median_of ( . . . 

* 

* This function finds and returns the 

* median value of the elements array. 

* 

* As a side result, it also sorts the 

* elements array. 

***********************************************/ 

median_of (elements, count) 
int *count ; 

short elements [] ; 

■c 

short median; 

fsort_elements (elements , count); 
median = elements [*count/2] ; 
return (median) ; 

}- /* ends median_of */ 



/*********************************************** 

* f sort_elements( . . . 

* This function performs a simple bubble 

* sort on the elements from the median 

* filter. 

* 

***********************************************/ 

fsort_elements (elements, count) 
int *count ; 

short elements [] ; 
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{ 

int i , j ; 
j = *count; 
while (j — > 1){ 

for(i=0; i<j ; i++){ 

if (elements [i] > elements [i+1] ) 

f swap(&elements [i] , &elements [i+1] ) ; 

> 

} 

> /* ends f sort_elements */ 



/*********************************************** 

* f swap( . . . 

* 

* This function swaps two shorts. 

* 

***********************************************/ 

f swap (a, b) 

short *a, *b; 

{ 

short temp; 
temp = *a ; 

*a = *b; 

*b = temp; 

} /* ends swap */ 



/************************************************ 

* setup_f ilters ( . . . 

* 

* This function copies the filter mask 

* values defined at the top of this file 

* into the filter array. 

* 

************************************************/ 
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setup_f ilters(f ilter_type, low_high, filter) 
char low_high [] ; 
int filter_type; 
short filter [3] [3] ; 

{ 

int i, j; 

if (low_high [0] == ’ 1 ’ II low_high [0] ==’L , ){ 
if (f ilter_type == 6){ 
for(i=0; i<3; i++){ 
for(j=0; j<3; j++){ 

filter [i] [j] = lpf _f ilter_6 [i] [j] ; 

> 

> 

)- /* ends if filter_type == 6 */ 

if (f ilter_type == 9){ 
for(i=0; i<3; i++){ 
for(j=0; j<3; j++){ 

filter [i] [j] = lpf _f ilter_9 [i] [j] ; 

> 

> 

> /* ends if filter_type == 9 */ 

if (f ilter_type == 10) { 
for(i=0; i<3; i++){ 
for(j=0; j<3; j++){ 

filter [i] [j] = lpf _f ilter_10 [i] [j] ; 

> 

} 

> /* ends if filter_type == 10 */ 



if (f ilter_type == 16) { 
for(i=0; i<3; i++){ 
f°r(j=0; j<3; j++){ 

filter [i] [j] = lpf _f ilter_16 [i] [j] ; 

> 

} 

> /* ends if filter_type == 16 */ 



if (f ilter_type == 32) { 
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for(i=0; i<3; i++){ 
for(j=0; j<3; j++){ 

filter [i] [j] = lpf _f ilter_32 [i] [j] ; 

> 

} 

} /* ends if filter_type == 32 */ 

} /* ends low pass filter */ 



if (low_high[0] == ’h’ II low_high[0] ==’H’){ 
if (f ilter_type == 1){ 
for(i=0; i<3; i++){ 
for(j=0; j<3; j++){ 

filter[i] [j] = hpf _f ilter_l [i] [j] ; 

> 

} 

> /* ends if filter_type == 1 */ 

if (f ilter_type == 2){ 
for(i=0; i<3; i++){ 
for(j=0; j<3; j++){ 

filter [i] [j] = hpf _f ilter_2 [i] [j] ; 

> 

} 

> /* ends if filter_type == 2 */ 

if (f ilter_type == 3){ 
for(i=0; i<3; i++){ 
for(j=0; j<3; j++){ 

filter [i] [j] = hpf _f ilter_3 [i] [j] ; 

> 

> 

} /* ends if filter_type == 3 */ 

} /* ends high pass filter */ 

} /* ends setup_f ilters */ 



Listing 7.1 - Image Filter Operators 
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/*********************************************** 
* file mfilter.c 



* Functions: This file contains 

* main 

* 

* Purpose : 

* This is the main calling program for 

* a set of spatial filtering routines. 



External Calls : 

imageio.c - create_image_f ile 
r e ad_ image _ array 
write_image_array 
get_image_size 
get_bitsperpixel 
allocate_image_array 
free_image_array 
filter. c - filter_image 
median_f ilter 
high_pixel 
low_pixel 



* Modifications: 

* 15 February 1992 - created 

* 01 January 1993 - added calls to 

* high_pixel and low_pixel. 

* 18 September 1998 - modified to work with 

* all I 0 routines in imageio.c. 

* 

***** ******* Sic**********************************/ 



#include "cips.h" 



main ( ar gc , ar gv ) 
int argc; 
char *argv[] ; 

■c 

char namel [MAX_NAME_LENGTH] ; 
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char name2 [MAX_NAME_LENGTH] ; 

char low_high [MAX_NAME_LENGTH] ; 

int i, j, size, type; 

long bits_per_pixel, length, width; 

short **the_image, ** out _ image, filter [3] [3] ; 



/****************************************** 

* 

* Ensure the command line is correct. 

* 

******************************************/ 

if (argc <5 II argc > 6){ 
printf ( 

"\nusage 1: mfilter in- image out-image g Low-High type]" 

"\n OR" 

"\nusage 2: mfilter in- image out-image High-Low-Median size" 
"\n h - high pixel" 

"\n 1 - low pixel" 

"\n m - median pixel" 

"\n " 

"\n Using the General type requires entering " 

"\n the type per the following table" 

"\n L - 6" 

"\n L - 9" 

"\n L - 10" 

"\n L - 16" 

"\n L - 32" 

"\n H - 1" 

"\n H - 2" 

"\n H - 3" 

"\n Using the High-Low-Median type requirs entering " 

"\n the size of the filtered area 3 (3x3) 5, 7, 9, etc."); 
exit (0) ; 

} 

strcpy (namel , argv[l]); 
strcpy (name2 , argv [2] ) ; 

if (does_not_exist (namel) ) { 

printf ("\nERR0R input file °/,s does not exist", 
namel) ; 
exit (0) ; 

} /* ends if does_not_exist */ 
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/****************************************** 



* Read the input image header, allocate 

* the image arrays, create the output 

* image , and read the input image . 

******************************************/ 

create_image_f ile(namel , name2) ; 
get_image_size(namel, &length, &width) ; 
get_bitsperpixel(namel, &bits_per_pixel) ; 
the_image = allocate_image_array (length, width); 
out_image = allocate_image_array (length, width); 
read_image_array (namel , the_image) ; 

/sit***************************************** 



* Call the proper image filter function 

* per the command line. 

******************************************/ 



/* General filtering case */ 
if (argc == 6){ 

strcpy (low_high, argv[4]); 
type = atoi (argv [5] ) ; 
f ilter_image (the_image , out_image , 
length, 
width, 

bits_per_pixel, 
filter, type, low_high) ; 
} /* ends if argc == 6 */ 



/* High, Low, and Median filtering cases */ 
if (argc == 5){ 

strcpy (low_high, argv [3] ) ; 
size = atoi (argv [4] ) ; 

if (low_high [0] == ’h’ II low_high[0] == ’H’) 
high_pixel(the_image, out_image, 
length , 
width, 
size) ; 
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if (low_high[0] == ’1’ II low_high[0] == ’L’) 
low_pixel(the_image, out_image, 
length , 
width, 
size) ; 

if (low_high[0] == ’m’ || low_high[0] == ’M’) 
median_f ilter (the_image , out_image , 
length, 
width, 
size) ; 

} /* ends if argc == 5 */ 

/****************************************** 

* 

* Write the output image and free the 

* image arrays : THE END 

* 

******************************************/ 

write_image_array(name2, out_image) ; 
free_image_array(the_image, length) ; 
free_image_array(out_image, length) ; 

} /* ends main */ 



Listing 7.2 - The mfilter Program 



F.8 Code Listings for Chapter 8 



/*********************************************** 

* 

* file addsub.c 

* 

* Functions: This file contains 

* add_image_array 

* subtract_image_array 

* Purpose : 

* These functions implement 

* image addition and subtraction. 
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External Calls : 
none 



Modifications : 

1 April 1992 - created 



*************************************************/ 



#include "cips.h" 

/******************************************* 

* add_image_array ( . . . 

* This function adds two image arrays. 

* The image array out_image will hold 

* the result . 



*******************************************/ 

add_image_array(the_image, out_image, rows, cols, max) 
int rows, cols; 

short **the_image, 

** out _ image , 
max; 

{ 

int i , j ; 

for(i=0; iCrows; i++){ 
for(j=0; j<cols; j++){ 

out_image[i] [j] = the_image [i] [j] + 
out_image [i] [j] ; 
if (out_image [i] [j] > max) 
out_image [i] [j] = max; 

)- /* ends loop over j */ 

} /* ends loop over i */ 

)- /* ends add_image_array */ 



/******************************************* 
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* 

* subtract_image_array( . . . 

* This function subtracts two image arrays. 

* The image array out_image will hold 

* the result . 

*******************************************/ 

subtract_image_array(the_image, out_image, rows, cols) 
int rows, cols; 

short **the_image, 

** out _ image; 

{ 

int i , j , length , width ; 

for(i=0; i<rows; i++){ 
for(j=0; j<cols; j++){ 

out_image [i] [j] = the_image [i] [j] - 
out_image [i] [j] ; 
if (out_image [i] [j] < 0) 
out_image [i] [j] = 0; 

> /* ends loop over j */ 

} /* ends loop over i */ 

} /* ends subtract_image_array */ 

Listing 8.1 - Image Addition and Subtraction Routines 



* file mainas . c 

* 

* Functions: This file contains 

* main 

* 

* Purpose : 

* This file contains the main calling 

* routine in an image addition and subtraction 

* program . 



Ext ernal Calls: 
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* 



* 

* 

* 

* 

* 



imageio.c - create_image_f ile 
read_image_array 
write_image_array 
get_image_size 
get_bitsperpixel 
allocate_image_array 
f ree_image_array 
does_not_exist 
are_not_same_size 
addsub.c - add_ image _ array 

subtract_image_array 



* Modifications: 

* 1 April 1992 - created 

* 10 August 1998 - modified to work on entire 

* images at one time. 

* 18 September 1998 - modified to work with 

* all I 0 routines in imageio.c. 

* 

*************************************************/ 



#include "cips.h" 



main ( ar gc , ar gv ) 
int argc ; 
char *argv[] ; 

■c 



char namel [80] , name2[80], name3 [80] ; 

long bits_per_pixel, length, width; 

short **imagel, **image2; 

short max ; 

/****************************************** 

* Interpret the command line parameters. 

*******************************************/ 

if (argc != 5){ 
printf ( 

"\n" 

"\n usage: mainas inl-file in2-file " 
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"out_file add-subtract" 

"\n" 

"\n recall add-subtract a=add s=subtract\n") ; 
exit(O) ; 



strcpy (namel , argv[l]); 
strcpy (name2 , argv [2] ) ; 
strcpy (name3, argv[3]); 

if (does_not_exist (namel) ) { 
printf ("\nERROR input file °/ 0 s does not exist", 
namel) ; 

exit(O) ; 

} 

if (does_not_exist (name2) ) { 
printf ("\nERR0R input file °/ 0 s does not exist", 
name2) ; 

exit (0) ; 

} 



/sit***************************************** 

* 

* Ensure the two input images have the 

* same sizes. 

* 

*******************************************/ 

if (are_not_same_size (namel , name2) ) { 
printf ( 

"\nERR0R Image files °/ 0 s and °/,s are not same size", 
namel, name2) ; 
exit (0) ; 



* 

* Allocate the two image arrays 

* 

*******************************************/ 

get_image_size (namel , &length, fewidth) ; 
get_bitsperpixel (namel , &bits_per_pixel) ; 
imagel = allocate_image_array (length, width); 
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image2 = allocate_image_array (length, width); 



* Create the output file and read the 

* two input images . 

sit******************************************/ 

create_image_f ile(namel , name3) ; 
read_image_array(namel, imagel) ; 
read_image_array(name2, image2) ; 

/******************************************** 

* Add or subtract the input images and 

* write the result to the output image . 

* 

********************************************/ 

if (argv [4] [0] == ’a’ II argv[4][0] == ’A’){ 
if (bits_per_pixel == 4) 
max = 16; 
else 

max = 255; 

add_image_array (imagel , image2, 
length , width , max) ; 

} /* ends if add */ 

if (argv [4] [0] == ’s’ II argv [4] [0] == ’S’) 
subtract_image_array( imagel , image2, 
length, width); 

write_image_array(name3, image2) ; 

free_image_array (imagel , length) ; 
f ree_image_array (image2 , length) ; 

)- /* ends main */ 



Listing 8.2 - The mainas Program 
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/*********************************************** 

* file cutp.c 

* Functions: This file contains 

* paste_image_piece 

* check_cut_and_paste_limits 

* 

* Purpose : 

* These functions paste a part of one 

* image into another image. 

* 

* External Calls : 

* none 

* Modifications: 

* 3 April 1992 - created 

* 12 August 1998 - modified to work 

* with an entire image array. 

* 

*************************************************/ 
#include "cips.h" 



/******************************************* 

* paste_image_piece( . . . 

* 

* This function pastes a rectangular 

* piece of an image into another image. 

* The rectangle to be pasted into the image 

* is described by the ill, iel, 111, lei 

* parameters for the input image. 

*******************************************/ 

paste_image_piece (the_image , out_image , 

111, iel. 111, lei, 

112, ie2) 

int ill, iel, 111, lei, il2, ie2; 
short **the_image, 

** out _ image; 
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I 

int i, j, limit 1, limit2; 

limitl = 111-ill; 
limit2 = lel-iel; 

for(i=0; Klimitl; i++){ 
for(j=0; j<limit2; j++){ 

out_image [il2+i] [ie2+j] = the_image [ill+i] [iel+j] ; 

> 

> 

}- /* ends paste_image_piece */ 



* check_cut_and_paste_limits( . . . 

* This function looks at the line and 

* element parameters and ensures that they 

* are not bigger than ROWS and COLS. If 

* they are bigger, the last element or 

* last line parameters are reduced. 

*******************************************/ 



check_cut_and_paste_limits ( 
ill, iel , 

111, lei, 

112 , ie2 , 
imagel_length, 
image l_width, 
image2_length , 
image2_width, 
is_ok) 

int ill, iel, 111, lei, il2, ie2, 
imagel_length, imagel_width, 
image2_length, image2_width, 
*is_ok; 



int result = 1; 
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if ( ill < o II 
iel < OH 

printf ("\nCheck> ill=7«d iel=7 0 d", ill, iel); 
result = 0; 

} 

if ( il2 < 0 II 
ie2 < OH 

printf ("\nCheck> il2=7.d ie2=7od" , il2, ie2) ; 
result = 0; 

} 

if (111 > imagel_length){ 

printf ("\nCheck> lll=7«d length=7«d" , 

111, image l_length) ; 
result = 0 ; 



if (lei > image l_width){ 

printf ("\nCheck> lel=7.d width=7«d" , 
lei, image l_width) ; 
result = 0; 



if ( (il2+(lll-ill) ) > image2_length) { 
printf ("\nCheck> il2=7od lengths 7«d" , 
il2+ (111-ill) , image2_length) ; 
result = 0; 



if ((ie2+(lel-iel)) > image2_width) { 
printf ("\nCheck> ie2=7.d width=7«d" , 
ie2+(lel-iel) , image2_width) ; 
result = 0 ; 

} 

*is_ok = result; 

} /* ends check_cut_and_paste_limits */ 



Listing 8.3 - Cut and Paste Routines 
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/*********************************************** 

* file maincp.c 

* Functions: This file contains 

* main 

* Purpose : 

* This file contains the main calling 

* routine for a program which 

* cuts a piece from one image and pastes 

* it into another. 



* External Calls: 

* imageio.c - create_image_f ile 

* read_image_array 

* write_image_array 

* get_image_size 

* allocate_image_array 

* free_image_array 

* cutp.c - paste_image_piece 

* check_cut_and_paste_limits 

* 



* Modifications: 

* 8 April 1992 - created 

* 12 August 1998 - modified to work on 

* entire image array at once. 

* 18 September 1998 - modified to work with 

* all I 0 routines in imageio.c. 

* 

*************************************************/ 



#include "cips.h" 



main ( ar gc , ar gv ) 
int argc ; 
char *argv[] ; 

char namel [80] , name2[80]; 

int i, is_ok, ill, iel, 111, lei, 

il2 , ie2, 112, le2; 

long lengthl, length2, widthl , width2; 
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short **the_image, ** out _ image; 

* 

* Interpret the command line parameters. 

* 

*******************************************/ 

if (argc != 9H 
printf ( 

"\n" 

"\n usage: maincp in-file out_file " 

"in-il in-ie in-11 in-le out-il out-ie" 

"\n" 

"\n The image portion is pasted from the " 

"\n in-file into the out-file" 

"\n") ; 
exit (0) ; 

} 

strcpy(namel , argv[l]); 
strcpy (name2 , argv [2] ) ; 

if (does_not_exist (namel) ) { 
printf ("\nERR0R input file °/ 0 s does not exist", 
namel) ; 

exit(0) ; 

} 

if (does_not_exist (name2) ) { 
printf ("\nERR0R input file °/ 0 s does not exist", 
name2) ; 

exit (0) ; 

} 

ill = atoi (argv [3] ) ; 
iel = atoi (argv [4] ) ; 

111 = atoi (argv [5] ) ; 
lei = atoi (argv [6] ) ; 

112 = atoi (argv [7] ) ; 
ie2 = atoi (argv [8] ) ; 

/****************************************** 



Read the input image sizes, allocate 
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the image array and read the image 
for both images. 



get_image_size (namel , &lengthl, &widthl) ; 
get_image_size(name2, &length2, &width2) ; 

the_image = allocate_image_array (lengthl , widthl) ; 
out_image = allocate_image_array (length2 , width2) ; 

read_image_array (namel, the_image) ; 
read_image_array(name2, out_image) ; 



/************************* 

* Paste 

* 

**************************/ 

check_cut_and_paste_limits ( 
ill, iel , 

111, lei, 

112 , ie2 , 
lengthl , widthl , 
length2 , width2 , 

&is_ok) ; 

printf ("\nMAIN> is_ok=7,d" , is_ok) ; 
if (is_ok) 

paste_image_piece (the_image , out_image , 

111, iel, 111, lei, 

112, ie2) ; 

write_image_array(name2, out_image) ; 
f ree_image_array (out_image , length2) ; 
f ree_image_array (the_image , lengthl) ; 

> /* ends main */ 

Listing 8.4 - The maincp Program 
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/************************************************ 

* file create. c 

* Functions: This file contains 

* main 

* 

* Purpose : 

* This program creates an 8 bit tiff file 

* of size 1*R0WS by w*C0LS. 

* External Calls : 

* image io.c 

* create_allocate_tif _f ile 

* create_allocate_bmp_f ile 

* 

* Modifications: 

* 7 Arpil 1992 - created 

* 15 August 1998 - modified to work with 

* an entire image array at once. 

* 18 September 1998 - modified to work with 

* all I 0 routines in imageio.c. 

*************************************************/ 
#include "cips.h" 



main(argc, argv) 
int argc ; 
char *argv[] ; 

{ 

char *cc; 
int 1 , w ; 
int ok = 0 ; 

struct tiff _header_struct image_header ; 
struct bmpf ileheader bmp_f ile_header ; 

struct bitmapheader bmheader; 

if (argc <4|| argc > 4){ 
printf ( 

"\nusage: create file-name length width\n"); 
exit (-1) ; 
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1 = atoi (argv [2] ) ; 
w = atoi (argv [3] ) ; 

cc = strstr (argv [1] , ".tif"); 
if(cc != NULL){ /* create a tif */ 



ok = 1; 

image_header . lsb = 1 ; 

image_header ,bits_per_pixel = 8; 

image_header . image_length = 1 ; 

image_header . image_width = w; ; 

image_header . strip_off set = 1000; 



create_allocate_tif f _f ile (argv [1] , 

& image _header) ; 

} /* ends tif */ 

cc = strstr (argv [1] , ".bmp"); 
if(cc ! = NULL) { /* create a bmp */ 

ok = 1; 

bmheader .height = 1; 
bmheader . width = w; 
create_allocate_bmp_f ile (argv [1] , 

&bmp_f ile_header , 
&bmheader) ; 

} /* ends tif */ 



if (ok == 0){ 

printf ("\nERR0R input file neither tiff nor bmp"); 
exit (0) ; 

} 



> 

Listing 8.5 - The create Program 



/*********************************************** 

* file invert . c 

* Functions: This file contains 

* main 
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* 

* Purpose : 

* This program takes an image file and 

* inverts it. It works with 8 bit images 

* only . 

* External Calls: 

* image io.c 

* create_allocate_tif_f ile 

* create_allocate_bmp_f ile 

* get_image_size 

* allocate_image_array 

* free_image_array 

* read_image_array 

* write_image_array 

* Modifications: 

* 6 March 1993 - created 

* 22 August 1998 - modified to work on entire 

* images at once. 

* 19 September 1998 - modified to work with 

* all I 0 routines in imageio.c. 

* 

***********************************************/ 
#include "cips.h" 



main(argc, argv) 
int argc; 
char *argv[] ; 

{ 

char namel[80], name2[80]; 

char *cc; 

int a , b ; 

int ok = 0; 

long length, width; 

short **the_image ; 

struct tiff _header_struct image_header ; 
struct bmpf ileheader bmp_f ile_header ; 

struct bitmapheader bmheader; 



if (argc != 3){ 
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printf ("\nusage : invert in-file out-f ile\n") ; 
exit (1) ; 

> 

strcpy (namel , argv[l]); 
strcpy (name2 , argv [2] ) ; 

get_image_size (namel, &length, &width) ; 

the_image = allocate_image_array (length, width); 

cc = strstr(argv[l] , ".tif"); 
if(cc != NULL){ /* create a tif */ 



ok = 1 ; 

image_header . lsb = 1 ; 

image_header . bits_per_pixel = 8; 

image_header . image_length = length; 

image_header . image_width = width; 

image_header.strip_offset = 1000; 



create_allocate_tif f _f ile (argv [2] , 

& image _header) ; 

} /* ends tif */ 

cc = strstr (argv [1] , ".bmp"); 
if(cc != NULL){ /* create a bmp */ 
ok = 1; 

bmheader .height = length; 
bmheader . width = width; 
create_allocate_bmp_f ile (argv [2] , 

&bmp_f ile_header , 
&bmheader) ; 

> /* ends tif */ 



if (ok == 0){ 

printf ("\nERR0R input file neither tiff nor bmp"); 
exit (0) ; 

} 

read_image_array (namel , the_image) ; 

for(a=0; aClength; a++) 
for(b=0; b<width; b++) 

the_image [a] [b] = GRAY_LEVELS-the_image [a] [b] ; 
write_image_array(name2, the_image) ; 
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f ree_image_array(the_image , length) ; 
} /* ends main */ 

Listing 8.6 - The invert Program 



F.9 Code Listings for Chapter 9 



/******************************************** 

* 

* smooth_histogram( . . . 

* 

* This function smoothes the input histogram 

* and returns it. It uses a simple averaging 

* scheme where each point in the histogram 

* is replaced by the average of itself and 

* the two points on either side of it. 

* 

*********************************************/ 

smooth_histogram (histogram, gray_levels) 
int gray_levels ; 

unsigned long histogram [] ; 

int i ; 

unsigned long new_hist [gray_levels] ; 

zero_histogram(new_hist , gray_levels) ; 

new_hist[0] = (histogram [0] + histogram [1] )/2; 
new_hist [gray_levels] = 

(histogram [gray_levels] + 
histogram [gray_levels- 1] )/2; 

f or(i=l ; i<gray_levels-l ; i++){ 
new_hist[i] = (histogram [i— 1] + 
histogram [i] + 

histogram [i+1] )/3; 
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> 

for(i=0; i<gray_levels; i++) 
histogram [i] = new_hist[i]; 

}• /* ends smooth_histogram */ 



Listing 9.1 - The smooth Jiistogram function 



/********************************************* 

* 

* file segment. c 

* 

* Functions: This file contains 

* adaptive_threshold_segmentation 

* find_peaks 

* f ind_valley_point 

* grow 

* insert_into_peaks 

* insert_into_deltas 

* label_and_check_neighbors 

* manual_threshold_segmentation 

* peak_threshold_segmentation 

* peaks_high_low 

* push 

* P°P 

* is_not_empty 

* threshold_image_array 

* valley_high_low 

* valley_threshold_segmentation 

* 

* Purpose : 

* These functions are part of histogram 

* based image segmentation. 

* 

* External Calls : 

* none 



Modifications : 

October 1992 - created 
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* 15 August 1998 - modified to work on 

* images at once . 

************************************************/ 



#include "cips.h" 



struct stacks{ 

short x; 

short y ; 

struct stacks *next ; 



struct stacks *stack; 



* threshold_image_array ( . . . 

* This function thresholds an input image array 

* and produces a binary output image array. 

* If the pixel in the input array is between 

* the hi and low values, then it is set to value. 

* Otherwise, it is set to 0. 

* 

***************************************************/ 



threshold_image_array ( in_image , out_image , 
hi, low, value, 
rows, cols) 

short hi, low, **in_image, 

* * out _ image , value ; 
int rows, cols; 

{ 

int i , j ; 

unsigned long counter = 0L; 
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for(i=0; iCrows; i++){ 
for(j=0; j<cols; j++){ 

if (in_image [i] [j] >= low && 
in_image[i] [j] <= hi){ 
out_image [i] [j] = value; 
counter++; 

> 

else 

out_image [i] [j] = 0; 

> /* ends loop over j */ 

} /* ends loop over i */ 

printf ("\n\tTIA> set %ld points", counter); 
)■ /* ends threshold_image_array */ 



/********************************************** 

* 

* grow( . . . 

* 

* This function is an object detector. 

* Its input is an binary image array 

* containing 0 ’ s and value ’ s . 

* It searches through the image and connects 

* the adjacent values. 

***********************************************/ 

grow (binary, value, rows, cols) 
short **b inary, 
value ; 

{ 

int first_call, 

i, 

j. 

object_f ound; 
short g_label, 
pop_i, 

P°P-j ; 

/sic************************************ 
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* Now begin the process of growing 

* regions . 

**************************************/ 

g_label = 2; 

object_f ound = 0; 

first_call = 1; 

f or (i=0 ; i<rows; i++){ 
for(j=0; j<cols; j++){ 

stack = NULL; 

/********************************** 

* 

* Search for the first pixel of 

* a region. 

* 

***********************************/ 
if (binary [i] [j] == value) { 

/ *pr intf ( " \nGR0W> Hit value at °/„d °/,d number °/,d" ,i, j ,g_label) ;*/ 
label_Emd_check_neighbor ( 
binary, 
g_label , 
i , j , value , 

&f irst_call , 
rows, cols); 
object_found = 1; 

> /* ends if binary [i] j ] == value */ 

/***************************** 

* 

* If the stack is not empty, 

* pop the coordinates of 

* the pixel off the stack 

* and check its 8 neighbors. 

* 

*******************************/ 

while (is_not_empty (stack) ) { 
pop (&pop_i , &pop_ j ) ; 
label_and_check_neighbor ( 
binary , 
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g_label, 

pop_i, 

pop_ j , value , 

&f irst_call, 
rows , cols) ; 

} /* ends while stack_empty == 0 */ 

if (object_found == 1){ 
object_found = 0; 

++g_label ; 

} /* ends if object_found == 1 */ 

)- /* ends loop over j */ 

} /* ends loop over i */ 

printf ("\nGR0W> found °/ 0 d objects", g_label) ; 
> /* ends grow */ 



/******************************************** 

* label_and_check_neighbors ( . . . 

* This function labels a pixel with an object 

* label and then checks the pixel’s 8 

* neighbors. If any of the neigbors are 

* set, then they are also labeled. 

* 

***********************************************/ 

label_and_check_neighbor (binary_image , 
g_label , 
r , e , value , 
f irst_call, 
rows, cols) 

int cols, 

e, 

*f irst_call, 
r , 

rows; 

short * *b inary _ image. 
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g_label, 
value ; 

{ 

char rr[80] ; 

int already_labeled = 0, 

i. j; 

struct stacks *temp; 

if (binary_image [r] [e] == g_label) 
already_labeled = 1; 

b inary _ image [r] [e] = g_label; 

/***** ********************************** 

* 

* Look at the 8 neighors of the 

* point r,e. 

* 

* Ensure the points you are checking 

* are in the image, i.e. not less 

* than zero and not greater than 

* rows-1 or cols-1. 

* 

sic**************************************/ 

f or (i=(r-l) ; i<=(r+l); i++){ 
f or (j=(e-l) ; j<=(e+l); j++){ 

/******************************** 

* Ensure i and j are not 

* outside the boundary of the 

* image . 

*********************************/ 

if((i>=0) && 

(i<=rows-l) && 

( j >=0) && 

(j<=cols-l)){ 

if (binary_image [i] [j] == value) { 
push(i , j); 

> /* end of if b inary _ image == value */ 
} /* end if i and j are on the image */ 
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> /* ends loop over i rows 

} /* ends loop over j columns 

I /* ends label_and_check_neighbors 



*/ 

*/ 

*/ 



/*^*^********************************************** 

* manual_threshold_segmentation( . . . 

* This function segments an image using thresholding 

* given the hi and low values of the threshold 

* by the calling routine. It reads in an image 

* and writes the result to the output image. 

* 

* If the segment parameter is 0, you only 

* threshold the array - you do not segment . 



manual_threshold_segmentation(the_image , out_image , 

hi, low, value, segment, 
rows, cols) 

int rows, cols, segment; 
short hi, low, **the_image, 

* * out _ image , value ; 

■c 

threshold_image_array (the_image , out_image, 
hi, low, value, rows, cols); 
if (segment == 1) 

grow(out_image, value, rows, cols); 

> /* ends manual_threshold_segmentation */ 
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/************************************************ 

* peak_threshold_segmentation( . . . 

* This function segments an image using 

* thresholding. It uses the histogram peaks 

* to find the hi and low values of the 

* threshold. 

* 

* If the segment parameter is 0, you only 

* threshold the array - you do not segment. 

* 

*************************************************/ 

peak_threshold_segmentation(the_image , out_image , 
value , segment , 
rows, cols) 

int rows, cols, segment; 

short **the_image, **out_image, value; 

{ 

int peakl, peak2; 

short hi, low; 

unsigned long histogram [GRAY_LEVELS+1] ; 

zero_histogram (histogram, GRAY_LEVELS+1) ; 
calculate_histogram(the_image , histogram, 
rows , cols) ; 

smooth_histogram (histogram, GRAY_LEVELS+1) ; 
find_peaks (histogram, &peakl, &peak2) ; 
peaks_high_low (histogram, peakl, peak2, 

&hi , &low) ; 

thr e sho ld_ image _ array ( the _ image , 
out _ image, 
hi, low, value, 
rows , cols) ; 

if (segment == 1) 

grow(out_image , value, rows, cols); 

} /* ends peak_threshold_segmentation */ 



/******************************************** 
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f ind_peaks ( . 



This function looks through the histogram 
array and finds the two highest peaks. 

The peaks must be separated, cannot be 
next to each other, by a spacing defined 
in cips.h. 

The peaks array holds the peak value 
in the first place and its location in 
the second place. 



find_peaks (histogram, peakl, peak2) 
unsigned long histogram [] ; 
int *peakl, *peak2; 

■c 

int distance [PEAKS] , peaks [PEAKS] [2] ; 
int i, j=0, max=0, max_place=0; 

f or (i=0 ; i<PEAKS ; i++){ 
distance [i] = 0; 

peaks [i] [0] = -1; 
peaks [i] [1] = -1 ; 

> 

f or (i=0; i<=GRAY_LEVELS ; i++){ 
max = histogram [i] ; 

max_place = i; 

insert_into_peaks (peaks, max, max_place) ; 

} /* ends loop over i */ 

f or (i=l ; i<PEAKS ; i++){ 

distance [i] = peaks [0] [1] - peaks [i] [1] ; 
if (distance [i] < 0) 

distance [i] = distance [i] * (-1) ; 

} 

*peakl = peaks [0] [1] ; 
f or ( i=PEAKS- 1 ; i>0; i— ) 

if (distance [i] > PEAK_SPACE) *peak2 = peaks [i] [1] ; 



}• /* ends find_peaks */ 
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/******************************************** 

* insert_into_peaks(. . . 

* 

* This function takes a value and its 

* place in the histogram and inserts them 

* into a peaks array. This helps us rank 

* the the peaks in the histogram. 

* The objective is to build a list of 

* histogram peaks and thier locations. 

* The peaks array holds the peak value 

* in the first place and its location in 

* the second place. 

* 

sit********************************************/ 

insert_into_peaks (peaks, max, max_place) 
int max , max_place , peaks [PEAKS] [2] ; 

{ 

int i , j ; 

/* first case */ 
if (max > peaks [0] [0]){ 

f or ( i=PEAKS- 1 ; i>0; i— ){ 

peaks [i] [0] = peaks [i— 1] [0] ; 
peaks [i] [1] = peaks [i— 1] [1] ; 

> 

peaks [0][0] = max; 
peaks [0][1] = max_place; 

} /* ends if */ 

/* middle cases */ 
f or (j=0 ; j<PEAKS-3; j++){ 

if (max < peaks [j] [0] && max > peaks [j+1] [0]){ 

f or ( i=PEAKS- 1 ; i>j+l; i— ){ 
peaks [i] [0] = peaks [i— 1] [0] ; 
peaks [i] [1] = peaks [i— 1] [1] ; 

> 
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peaks [j+1] [0] = max; 
peaks [j+1] [1] = max_place; 

> /* ends if */ 

} /* ends loop over j */ 

/* last case */ 

if (max < peaks [PEAKS-2] [0] && 

max > peaks [PEAKS-1] [0]){ 
peaks [PEAKS- 1] [0] = max; 
peaks [PEAKS-1] [1] = max_place; 
> /* ends if */ 

> /* ends insert_into_peaks */ 



/******************************************** 

* 

* peaks_high_low( . . . 

* 

* This function uses the histogram array 

* and the peaks to find the best high and 

* low threshold values for the threshold 

* function. You want the hi and low values 

* so that you will threshold the image around 

* the smaller of the two "humps" in the 

* histogram. This is because the smaller 

* hump represents the objects while the 

* larger hump represents the background. 

* 

*********************************************/ 

peaks_high_low (histogram, peakl, peak2, hi, low) 
int peakl, peak2; 
short *hi, *low; 
unsigned long histogram [] ; 

int i , mid_point ; 

unsigned long suml = 0, sum2 = 0; 

if (peakl > peak2) 

mid_point = ((peakl - peak2)/2) + peak2; 
if (peakl < peak2) 

mid_point = ((peak2 - peakl) /2) + peakl; 
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for(i=0; i<mid_point; i++) 

suml = suml + histogram [i] ; 



f or (i=mid_point ; i<=GRAY_LEVELS; i++) 
sum2 = sum2 + histogram [i] ; 

if (suml >= sum2){ 

*low = mid_point; 

*hi = GRAY_LEVELS ; 

} 

else{ 

*low = 0; 

*hi = mid_point; 

} 



} /* ends peaks_high_low */ 



/************************************************ 

* valley_threshold_segmentation( . . . 

* This function segments an image using 

* thresholding. It uses the histogram valleys 

* to find the hi and low values of the 

* threshold. 

* 

* If the segment parameter is 0, you only 

* threshold the array - you do not segment. 

*************************************************/ 

valley_threshold_segmentation(the_image , out_image, 
value , segment , 
rows, cols) 

int rows, cols, segment; 
short **the_image, 

* * out _ image , value ; 

{ 

int peakl , peak2 ; 

short hi, low; 
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unsigned long histogram [GRAY_LEVELS+1] ; 

zero_histogram(histogram, GRAY_LEVELS+1) ; 
calculate_histogram(the_image , histogram, rows, cols); 
smooth_histogram(histogram, GRAY_LEVELS+1) ; 
f ind_peaks (histogram, &peakl, &peak2) ; 
valley _high_low(histogram, peakl, peak2, 

&hi , &low) ; 

threshold_image_array(the_image, out_image, 

hi, low, value, rows, cols); 

if (segment == 1) 

grow(out_image, value, rows, cols); 

}- /* ends valley_threshold_segmentation */ 



/******************************************** 

* valley_high_low( . . . 

* This function uses the histogram array 

* and the valleys to find the best high and 

* low threshold values for the threshold 

* function. You want the hi and low values 

* so that you will threshold the image around 

* the smaller of the two "humps" in the 

* histogram. This is because the smaller 

* hump represents the objects while the 

* larger hump represents the background. 

*********************************************/ 

valley_high_low (histogram, peakl, peak2, hi, low) 
int peakl, peak2; 
short *hi, *low; 
unsigned long histogram [] ; 

■c 

int i , valley_point ; 

unsigned long suml = 0, sum2 = 0; 
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find_valley_point (histogram, peakl, peak2, 
&valley_point) ; 

/*printf ("\nVHL> valley point is °/ 0 d" , 
valley_point) ; */ 



for(i=0; i<valley_point ; i++) 
suml = suml + histogram [i] ; 
for(i=valley_point; i<=GRAY_LEVELS ; i++) 
sum2 = sum2 + histogram [i] ; 



if (suml >= sum2){ 

*low = valley_point ; 
*hi = GRAY_LEVELS ; 



} 

else{ 

*low = 0; 

*hi = valley_point ; 

} 



> /* ends valley_high_low */ 



/***!|0|t******!)C!)CJ(C********!(C!(0|t******!)C!(0|t*******!)C!(C!|t 

* f ind_valley_point( . . . 

* 

* This function finds the low point of 

* the valley between two peaks in a 

* histogram. It starts at the lowest 

* peak and works its way up to the 

* highest peak. Along the way, it looks 

* at each point in the histogram and inserts 

* them into a list of points. When done, 

* it has the location of the smallest histogram 

* point - that is the valley point. 

* The deltas array holds the delta value 

* in the first place and its location in 

* the second place. 

* 

*********************************************/ 
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f ind_valley_point (histogram, peakl , 

peak2, valley_point) 
int peakl, peak2, *valley_point ; 
unsigned long histogram [] ; 

£ 

int deltas [PEAKS] [2] , delta_hist , i ; 

for (i=0; KPEAKS; i++){ 
deltas [i] [0] = 10000; 
deltas [i] [1] = -1; 

> 

if (peakl < peak2){ 

for (i=peakl+l ; i<peak2; i++){ 

delta_hist = (int) (histogram[i] ) ; 
insert_into_deltas (deltas , delta_hist, i) ; 
]■ /* ends loop over i */ 

> /* ends if peakl < peak2 */ 

if(peak2 < peakl) { 

f or (i=peak2+l ; i<peakl; i++){ 

delta_hist = (int) (histogram [i] ) ; 
insert_into_deltas (deltas, delta_hist, i) ; 
)- /* ends loop over i */ 

} /* ends if peak2 < peakl */ 

*valley_point = deltas [0] [1] ; 

> /* ends f ind_valley_point */ 



/******************************************** 

* insert_into_deltas( . . . 

* This function inserts histogram deltas 

* into a deltas array. The smallest delta 

* will be at the top of the array. 

* 

* The objective is to build a list of 

* histogram area deltas and thier locations. 
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* 

* The deltas array holds the delta value 

* in the first place and its location in 

* the second place. 

*********************************************/ 

insert_into_deltas (deltas, value, place) 
int value, place, deltas [PEAKS] [2] ; 

{ 

int i , j ; 

/* first case */ 
if (value < deltas [0] [0]){ 
f or ( i=PEAKS- 1 ; i>0; i— H 

deltas [i] [0] = deltas [i— 1] [0] ; 
deltas [i] [1] = deltas [i— 1] [1] ; 

> 

deltas [0] [0] = value; 
deltas [0] [1] = place; 

> /* ends if */ 

/* middle cases */ 
f or (j=0 ; j<PEAKS-3; j++){ 

if (value > deltas[j][0] && 
value < deltas [j+1] [0]){ 
f or ( i=PEAKS- 1 ; i>j+l; i— ){ 

deltas [i] [0] = deltas [i— 1] [0] ; 
deltas [i] [1] = deltas [i— 1] [1] ; 

> 

deltas [j+1] [0] = value; 
deltas [j+1] [1] = place; 

> /* ends if */ 

} /* ends loop over j */ 

/* last case */ 

if (value > deltas [PEAKS-2] [0] && 

value < deltas [PEAKS-1] [0] ){ 
deltas [PEAKS-1] [0] = value; 
deltas [PEAKS-1] [1] = place; 

} /* ends if */ 



> /* ends insert_into_deltas */ 
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/*^*^******************************************** 

* adaptive_threshold_segmentation( . . . 

* This function segments an image using 

* thresholding. It uses two passes 

* to find the hi and low values of the 

* threshold. The first pass uses the peaks 

* of the histogram to find the hi and low 

* threshold values. It thresholds the image 

* using these hi lows and calculates the means 

* of the object and background. Then we use 

* these means as new peaks to calculate new 

* hi and low values. Finally, we threshold 

* the image again using these second hi low 

* hi low values. 

* 

* If the segment parameter is 0, you only 

* threshold the array - you do not segment . 

* 

*************************************************/ 

adaptive_threshold_segmentation(the_image , out_image , 
value , segment , 
rows, cols) 

int rows, cols, segment; 
short **the_image, 

** out _ image, value; 

■c 

int peakl , peak2 ; 

short background, hi, low, object; 

unsigned long histogram [GRAY_LEVELS+1] ; 

zero_histogram(histogram, GRAY_LEVELS+1) ; 
calculate_histogram(the_image , histogram, 
rows , cols) ; 

smooth_histogram (histogram, GRAY_LEVELS+1) ; 
find_peaks (histogram, &peakl, &peak2) ; 
peaks_high_low(histogram, peakl, peak2, 

&hi , felow) ; 

threshold_and_f ind_means (the_image , out_image , 
hi, low, value, 
feobject, febackground, 
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rows, cols); 

peaks_high_low (histogram, object, background, 
&hi , &low) ; 

threshold_image_array (the_image , out_image , 
hi, low, value, 
rows , cols) ; 

if (segment == 1) 

grow(out_image, value, rows, cols); 

> /* ends adaptive_threshold_segmentation */ 



/************************************************** 

* threshold_and_find_means( . . . 

* 

* This function thresholds an input image array 

* and produces a binary output image array. 

* If the pixel in the input array is between 

* the hi and low values, then it is set to value. 

* Otherwise, it is set to 0. 



threshold_and_f ind_means (in_image , out_image, hi, 
low, value, object_mean, 
background_mean , 
rows, cols) 

short *background_mean, hi, low, 

**in_image, *object_mean, 

* * out _ image , value ; 
int rows , cols ; 

{ 

int counter = 0, 

i , 

j; 

unsigned long object = 0, 
background = 0; 

f or (i=0 ; i<rows; i++){ 
for(j=0; j<cols; j++){ 

if (in_image [i] [j] >= low && 
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in_image [i] [j] <= hi){ 
out_image [i] [j] = value; 
counter++; 

object = object + in_image [i] [j] ; 

> 

else{ 

out_image [i] [j] = 0; 

background = background + in_image [i] [j] ; 

} 

> /* ends loop over j */ 

} /* ends loop over i */ 

object = object/counter; 

background = background/ ( (rows*cols) -counter) ; 
*object_mean = (short) (object) ; 

*background_mean = (short) (background) ; 
printf ("\n\tTAFM> set 7.d points", counter); 
printf ("\n\tTAFM> object=7 0 d background=7.d" , 
*object_mean, *background_mean) ; 

> /* ends threshold_and_f ind_means */ 



show_stack() 

{ 

char r[80] ; 

struct stacks *temp; 
temp = stack; 
while (temp != NULL){ 

printf ("\n\t\t\t\t7.d 7.d 7.x 7.x", 
temp->x,temp->y, temp, temp->next) ; 
temp = temp->next ; 

} 



int is_not_empty (pointer) 
struct stacks *pointer; 

int result = 0; 
if (pointer != NULL) 
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result = 1; 
return (result) ; 

} /* ends is_empty */ 



push(x, y) 

short x, y; 

{ 

char r [80] ; 

struct stacks *new_one ; 

new_one = (struct stacks *) 

calloc(l, sizeof (struct stacks )); 
new_one->next = stack; 
new_one->x = x; 
new_one->y = y; 
stack = new.one; 

> /* ends push */ 



pop (x , y) 

short *x, *y; 

{ 

struct stacks *temp; 

temp = stack; 

*x = stack->x; 

*y = stack->y; 

stack = stack->next; 

free (temp) ; 

} /* ends pop */ 



Listing 9.2 - The Segmentation Subroutines 
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/*********************************************** 



* file mainseg.c 

* Functions: This file contains 

* main 

* 

* Purpose : 

* This file contains the main calling 

* routine in a segmentation and related 

* operations program. 



External Calls : 

imageio.c - create_image_f ile 
read_image_array 
write_image_array 
get_image_size 
allocate_image_array 
free_image_array 

segment. c - threshold_image_array 
grow 

f ind_peaks 
peaks_high_low 
valley_high_low 
threshold_and_f ind_means 



* Modifications: 

* 27 September 1992 - created 

* 15 August 1998 - modified to work on entire 

* images at once. 

* 19 September 1998 - modified to work with 

* all I 0 routines in imageio.c. 



*************************************************/ 



#include "cips.h" 



main ( ar gc , ar gv ) 
int argc; 
char *argv[] ; 

■c 



char namel[80], name2 [80] , response [80] ; 
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int segment ; 
long length, width; 

short background, hi, low, object, value; 
short **the_image, **out_image; 

/****************************************** 

* Ensure the command line is correct. 

* 

******************************************/ 

if (argc < 8){ 
printf ( 

"\n\nmainseg in-file out-file hi low " 

"value operation segment" 

"\n" 

"\n\thi and low are thresholds" 

"\n\tvalue is output pixel value" 
"\n\toperation = Threshold Grow Peaks" 

" Valleys Adaptive" 

"\n\tsegment is 1 (perform segmentation) " 
"or 0 (don’t) ") ; 
printf ("\n") ; 
exit (0) ; 



strcpy (namel , argv[l]); 
strcpy (name2 , argv [2] ) ; 
hi = atoi(argv[3] ) ; 

low = atoi(argv[4] ) ; 

value = atoi(argv[5] ) ; 

segment = atoi (argv [7] ) ; 

if (does_not_exist (namel) ) { 
printf ("\nERR0R input file °/ 0 s does not exist", 
namel) ; 

exit (0) ; 

} 



/****************************************** 

* 

* Read the input image header, allocate 

* the image arrays, create the output 

* image, and read the input image. 
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******************************************/ 



get_image_size (namel , &length, &width) ; 

the_image = allocate_image_array (length, width); 
out_image = allocate_image_array (length, width); 

create_file_if_needed(namel, name2, out _ image ) ; 
read_image_array (namel, the_image) ; 

/sit******************************** 

* Manual Threshold operation 

*********************************/ 

if (argv [6] [0] == ’t’ || argv[6][0] == ’T’H 
manual_threshold_segmentation( 
the_image, out_image, 
hi, low, value, segment, 
length, width); 

write_image_array(name2, out_image) ; 

} /* ends if t */ 



/sit******************************** 

* Grow region operation 

*********************************/ 

if (argv [6] [0] == ’g’ II argv [6] [0] == ’G’){ 
grow(the_image , value, 
length, width) ; 

write_image_array(name2, the_image) ; 

} /* ends if g */ 



/sit******************************** 

* Peak threshold operation 
*********************************/ 
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if (argv [6] [0] == ’p’ II argv[6][0] == ’P’H 
peELk_threshold_segmentation( 
the_image, out_image, 
value , segment , 
length, width); 

write_image_array(name2, out_image) ; 

} /* ends if p */ 



/********************************* 

* 

* Valley threshold operation 

* 

sic********************************/ 

if (argv [6] [0] == ’v’ || argv [6] [0] == ’V’){ 
valley_threshold_segmentation( 
the_image, out_image, 
value , segment , 
length, width); 

write_image_array(name2, out_image) ; 

} /* ends if v */ 

/********************************* 

* 

* Adaptive threshold operation 

* 

*********************************/ 

if (argv [6] [0] == ’a’ II argv [6] [0] == ’A’){ 
adapt ive_threshold_segmentat ion ( 
the_image, out_image, 
value , segment , 
length, width); 

write_image_array(name2, out_image) ; 

} /* ends if a */ 

f ree_image_array(out_image , length) ; 
free_image_array(the_image, length) ; 

> /* ends main */ 



Listing 9.3 - The mainseg Program 
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F.10 Code Listings for Chapter 10 



/******************************************* 

* low_pixel(.. 

* This function replaces the pixel at 

* the center of a 3x3, 5x5, etc. area 

* with the min for that area. 

*******************************************/ 



low_pixel(the_image, out_image, 
rows, cols, size) 
int size; 

short **the_image, 

** out _ image ; 
long rows, cols; 

{ 

int a, b, count, i, j, k, 

length, sd2, sd2pl, ss, width; 
short * e 1 ement s ; 

sd2 = size/2; 
sd2pl = sd2 + 1; 

/sit********************************************* 

* Allocate the elements array large enough 

* to hold size*size shorts. 

**********************************************/ 
ss = size*size; 

elements = (short *) malloc(ss * sizeof (short) ) ; 
/*************************** 

* Loop over image array 
****************************/ 
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printf ("\n") ; 

for(i=sd2; i<rows-sd2; i++){ 

if C (i%10) == 0) printf ("°/ 0 d ", i) ; 
for(j=sd2; j<cols-sd2; j++){ 
count = 0; 

for(a=-sd2; a<sd2pl; a++){ 
for(b=-sd2; b<sd2pl; b++){ 

elements [count] = the_image [i+a] [j+b] ; 
count++; 

} 

> 

f sort_elements (elements , &ss) ; 
out_image [i] [j] = elements [0]; 

} /* ends loop over j */ 

} /* ends loop over i */ 

free (elements) ; 

f ix_edges(out_image, sd2, rows-1, cols-1) ; 

> /* ends low_pixel */ 



/******************************************* 

* high_pixel( . . 

* This function replaces the pixel at 

* the center of a 3x3, 5x5, etc. area 

* with the max for that area. 

* 

*******************************************/ 

high_pixel(the_image, out_image, 
rows, cols, size) 
int size; 
short **the_image, 

** out _ image; 
long rows, cols; 

{ 

int a , b , count , i , j , k , 

length, sd2, sd2pl, ss, width; 
short *elements; 
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sd2 = size/2; 
sd2pl = sd2 + 1; 

/sit********************************************* 

* Allocate the elements array large enough 

* to hold size*size shorts. 

**********************************************/ 
ss = size*size; 

elements = (short *) malloc(ss * sizeof (short) ) ; 
/*************************** 

* Loop over image array 
****************************/ 

printf ("\n") ; 

f or(i=sd2; i<rows-sd2; i++){ 

if ( (i°/,10) == 0) printf ("°/,d ", i) ; 
f or (j=sd2 ; j<cols-sd2; j++){ 
count = 0; 

for(a=-sd2; a<sd2pl; a++){ 
for(b=-sd2; b<sd2pl; b++){ 

elements [count] = the_image [i+a] [j+b] ; 
count++ ; 

} 

} 

fsort_elements (elements, &ss) ; 
out_image [i] [j] = elements [ss-1] ; 

} /* ends loop over j */ 

} /* ends loop over i */ 

free (elements) ; 

f ix_edges (out_image , sd2, rows-1, cols-1) ; 

} /* ends high_pixel */ 



Listing 10.1 - The high_pixel and low .pixel Subroutines 
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file segment2.c 

Functions: This file contains 
find_cutoff_point 
edge_region 
gray_shade_region 
edge_gray_shade_region 
pixel_grow 

pixel_label_and_check_neighbors 

is_close 

erode_image_array 

get_edge_region_options 

Purpose : 

These function implement the three 
segmentation techniques in Image 
Processing part 10. 

External Calls: 

edges. c - quick_edge 
homogeneity 
dif f erence_edge 
contrast_edge 
gaussian_edge 
range 
variance 
detect_edges 

hist.c - calculate_histogram 
zero_histogram 

thresh. c - threshold_image_array 

Modifications : 

5 December 1992 - created 
15 August 1998 - modified to work on entire 
images at once. 



*************************************************/ 



#include "cips.h" 
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struct stacksp! 

short x; 

short y ; 

struct stacksp *next ; 



struct stacksp *stackp; 



/******************************************* 

* f ind_cutof f _point ( . . 

* This function looks at a histogram 

* and sets a cuttoff point at a given 

* percentage of pixels. 

* For example, if percent=0.6, you 

* start at 0 in the histogram and count 

* up until you’ve hit 607, of the pixels. 

* Then you stop and return that pixel 

* value . 



f ind_cutof f _point (histogram, percent , 
cutoff, rows, cols) 
unsigned long histogram [] ; 
float percent; 

long cols, rows; 

short *cutof f ; 

float fd, fsum, sum_div; 

int i, looking; 

long lc, lr, num=0, sum=0; 

sum = 0 ; 

i =0; 

lr = (long) (rows) ; 

lc = (long) (cols) ; 

num = lr*lc; 

fd = (float) (num) ; 



while (looking) { 




F.10. CODE LISTINGS FOR CHAPTER 10 



517 



f sum = (float) (sum) ; 
sum_div = fsum/fd; 
if(sum_div >= percent) 
looking = 0 ; 
else 

sum = sum + histogram [i++] ; 

} /* ends while looking */ 

if (i >= (GRAY_LEVELS+1) ) i = GRAY_LEVELS ; 
♦cutoff = i; 

printf ("\nCutoff is °/ 0 d sum=°/,ld" , *cutoff, sum); 
> /* ends f ind_cutoff_point */ 



/******************************************* 

* 

* erode_image_array( . . 

* 

* This function erodes pixels. If a pixel 

* equals value and has more than threshold 

* neighbors equal to 0, then set that 

* pixel in the output to 0 . 

* sic*****************************************/ 



erode_image_array (the_image , out_image , 
value, threshold, 
rows, cols) 
short **the_image, 

** out _ image, 
threshold, 
value ; 

long cols , rows ; 

{ 

int a , b , count , i , j , k , 
length, width; 

/*************************** 

* 

* Loop over image array 

* 

****************************/ 
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for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 

out_image [i] [j] = the_image [i] [j] ; 



printf ("\n") ; 

f or (i=l ; i<rows-l ; i++){ 

if ( (i°/,10) == 0) printf ("°/.3d" , i) ; 
f or (j=l ; j<cols-l; j++){ 

if (the_image [i] [j] == value) { 
count = 0; 

for(a=-l; a<=l; a++){ 

f or (b=-l ; b<=l ; b++){ 

if (the_image [i+a] [j+b] == 0) 
count++ ; 

} /* ends loop over b */ 

} /* ends loop over a */ 

if (count > threshold) out_image[i] [j] = 0; 
} /* ends if the_image == value */ 

} /* ends loop over j */ 

} /* ends loop over i */ 

} /* ends erode_image_array */ 



/********************************************** 

* 

* pixel_grow( . . . 

* 

* The function grows regions. It is similar 

* to the grow function in segment. c, but it 

* has several new capabilities. It can 

* eliminate regions if they are too large or 

* too small. 

* It ignores pixels = F0RGET_IT. This allows 

* it to ignore edges or regions already 

* eliminated from consideration. 

* 

* It adds pixels to a growing region only if 

* the pixel is close enough to the average gray 

* level of that region. 
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* 

***********************************************/ 

pixel_grow(input , output, diff, 
min_area, max_area, 
rows, cols) 
long cols, rows; 
short **input, 

** output , 
max_area, 
min_area, 
diff; 

{ 

char name [80] ; 

int count , 

f irst_call, 

i, 
ii, 

j. 

jj> 

object_found; 

short g_label, target, pop_i, pop_j , sum; 

for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 
output [i] [j] = 0 ; 

g_label = 2; 

object_found = 0; 
first_call = 1; 

/sit************************************ 

* Now begin the process of growing 

* regions . 

**************************************/ 

f or (i=0 ; i<rows; i++){ 
if ( (i%4) == 0) printf ("\n") ; 
printf ("-i= 0 /,3d label=%3d", i, g_label) ; 
for(j=0; j<cols; j++){ 
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target = input[i][j]; 

sum = target ; 

count = 0; 

/******************************** 
stack_f ile_in_use = 0; 

stack_empty = 1 ; 

pointer = -1; 

*******************************/ 
stackp = NULL; 

/********************************** 

* Search for the first pixel of 

* a region. It must not equal 

* F0RGET_IT, and it must be close 

* enough to the target (ave value) . 

***********************************/ 

if (input [i] [j] != F0RGET_IT && 

is_close (input [i] [j] , target, diff) && 
output [i] [j] == 0){ 

pixel_label_and_check_neighbor (input , 
output, &target, &sum, 
&count , g_label , 
i, j, diff, 

&f irst_call , 
rows , cols) ; 
object_found = 1; 

} /* ends if is_close */ 

/***************************** 

* If the stack is not empty, 

* pop the coordinates of 

* the pixel off the stack 

* and check its 8 neighbors. 

sit******************************/ 

while (is_not_emptyp (stackp) ) { 
popp (&pop_i , &pop_ j ) ; 



pixel_label_and_check_neighbor (input , 
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output, &target, &sum, 
&count, g_label, 
pop_i , pop_j, 
diff , 

&f irst_call , 
rows, cols) ; 

} /* ends while stack_empty == 0 */ 

if (object_found == 1){ 
object_found = 0; 

/********************************** 

* The object must be in the 

* size constraints given by 

* min_area and max_area 

sic********************************/ 

if (count >= min_area && 
count <= max_area) 

++g_label ; 

/********************************** 

* Remove the object from the 

* output . Set all pixels in the 

* object you are removing to 

* F0RGET_IT. 

* 

**********************************/ 



else! 

for(ii=0; ii<rows; ii++){ 
for(jj=0; j j<cols ; jj++){ 

if (output [ii] [jj] == g_label){ 
output [ii] [jj] = 0; 
input[ii] [jj] = F0RGET_IT; 

} /* ends if output == g_label */ 

} /* ends loop over jj */ 

> /* ends loop over ii */ 

} /* ends else remove object */ 

} /* ends if object_found == 1 */ 

> /* ends loop over j */ 

} /* ends loop over i */ 
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printf ("\nGROW> found °/ 0 d objects", g_label) ; 
} /* ends pixel_grow */ 



/******************************************** 

* 

* pixel_label_and_check_neighbors( . . . 

* This function labels a pixel with an object 

* label and then checks the pixel ’ s 8 

* neighbors. If any of the neigbors are 

* set, then they are also labeled. 

* 

* It also updates the target or ave pixel 

* value of the pixels in the region being 

* grown . 

* 

***********************************************/ 

pixel_label_and_check_neighbor (input_image , 

output _ image , t arget , 
sum , count , 
g_label , 
r, e, diff, 
f irst_call, 
rows, cols) 

int * count, 

e, 

*f irst_call, 
r ; 

long cols, rows; 

short ** input _ image , 

** output _ image , 
g_label , 

*sum, 

♦target , 
diff; 

char response [80] ; 

int already_labeled = 0, 
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i> j; 

/**printf ( " \nDEBUG>placn> start rx=7«d ey=7«d" ,r,e) ; **/ 
if (output_image [r] [e] != 0) 

already_labeled = 1 ; 



output_image [r] [e] = g_label; 

♦count = ♦count + 1; 
if (*count > 1){ 

♦ sum = ♦sum + input _ image [r] [e] ; 

♦target = ♦sum / ♦count; 

} 



/*************************************** 

♦ 

* Look at the 8 neighors of the 

* point r,e. 

* 



♦ 

♦ 

♦ 



Ensure the points are close enough 
to the target and do not equal 
F0RGET_IT. 



Ensure the points 
are in the image, 
than zero and not 
rows-1 or cols-1. 



you are checking 
i.e. not less 
greater than 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦/ 

f or (i=(r-l) ; i<=(r+l); i++){ 
f or (j=(e-l) ; j<=(e+l); j++){ 

if((i>=0) && /* ensure point in in image ♦/ 

(i<=rows-l) && 

( j >=0) && 

(j<=cols-l)){ 

if( input_image [i] [j] != F0RGET_IT && 
is_close(input_image [i] [j] , 

♦target, diff) && 

output_image [i] [j] == 0){ 

pushp(i, j); 



]■ /* ends if is_close */ 
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} /* end if i and j are on the image */ 
]- /* ends loop over i rows */ 

} /* ends loop over j columns */ 

}- /* ends pixel_label_and_check_neighbors */ 



/******************************************** 

* 

* is_close( . . . 

* 

* This function tests to see if two pixel 

* values are close enough together. It 

* uses the delta parameter to make this 

* j udgement . 



is_close(a, b, delta) 
short a, b, delta; 

int result = 0; 
short diff ; 

diff = a-b; 

if (diff < 0) diff = diff*(-l) ; 
if (diff < delta) 
result = 1; 
return(result) ; 

> /* ends is_close */ 



edge_region( . . 

This function segments an image by 
growing regions inside of edges. 

The steps are: 

. detect edges 

. threshold edge output to a 
percent value 

. remove edges from consideration 
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* . grow regions 

♦ sic*****************************************/ 



edge_region(the_image, out_image , 
edge_type, min_area, 
max_area, diff, percent, set_value, 
erode, rows, cols, bits_per_pixel) 
float percent; 

int edge_type ; 

long bits_per_pixel, cols, rows; 

short diff, erode, 

max_area, min_area, 
set_value, 

**the_image , 

** out _ image ; 

{ 

int a , b , count , i , j , k , 
length, width; 
short cutoff ; 

unsigned long histogram [GRAY_LEVELS+1] ; 

/*************************** 

* 

* Detect the edges . Do 

* not threshold. 

* 

****************************/ 

if(edge_type == 1 II 
edge_type == 2 II 
edge_type == 3) 

detect_edges (the_image , out_image , 
edge_type, 0, 0, 
rows, cols, 
bits_per_pixel) ; 

if(edge_type == 4){ 

quick_edge(the_image, out_image, 

0 , 0 , 

rows, cols, 
bits_per_pixel) ; 

> /* ends if 4 */ 
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if (edge_type == 5){ 

homogeneity (the_image , out_image , 
rows, cols, 
bits_per_pixel , 

0, 0); 

} /* ends if 5 */ 

if(edge_type == 6){ 

dif f erence_edge (the_image , out_image , 
rows, cols, 
bits_per_pixel , 

0, 0); 

} /* ends if 6 */ 

if (edge_type == 7){ 

contrast_edge (the_image , out_image , 
rows, cols, 
bits_per_pixel, 

0, 0); 

> /* ends if 7 */ 

if(edge_type == 8){ 

gaussian_edge (the_image , out_image , 
rows, cols, 
bits_per_pixel , 

3, 0, 0); 

} /* ends if 8 */ 

if(edge_type == 10) { 

range (the_image, out_image, 
rows, cols, 
bits_per_pixel , 

3, 0, 0); 

} /* ends if 10 */ 

if (edge_type == 11) { 

variance (the_image, out_image, 
rows, cols, 
bits_per_pixel, 

0, 0); 

} /* ends if 11 */ 

/**write_array_into_tiff_image("f :el.tif " , out_image, 
il, ie, 11, le);**/ 
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/* copy out_image to the_image */ 
for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 

the_image [i] [j] = out_image[i] [j] ; 

/****************************** 

* 

* Threshold the edge detector 

* output at a given percent. 

* This eliminates the weak 

* edges . 

* 

*******************************/ 
zero_histogram (histogram, GRAY_LEVELS+1) ; 
calculate_histogram(the_image , histogram, 
rows , cols) ; 

find_cutoff_point (histogram, percent, &cutoff, 
rows, cols); 

threshold_image_array (the_image , out_image , 
GRAY_LEVELS , cutoff, 
set_value, rows, cols); 



if (erode != 0){ 

/* copy out_image to the_image */ 
for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 

the_image [i] [j] = out_image [i] [j] ; 
erode_image_array (the_image , out_image , 
set_value , erode , 
rows, cols); 

> /* ends if erode */ 



/******************************* 

* 

* Set all the edge values to 

* F0RGET_IT so the region 

* growing will not use those 

* points. 

* 

*******************************/ 

for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 
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if (out_image [i] [j] == set_value) 
out_image [i] [j] = FORGET_IT; 

for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 

the_image [i] [j] = out_image [i] [j] ; 

pixel_grow(the_image, out_image, diff, 
min_area, max_area, 
rows, cols); 

> /* ends edge_region */ 



/******************************************* 

* gray_shade_region( . . . 

* This function segments an image by 

* growing regions based only on gray 

* shade . 

*******************************************/ 



gray_shade_region(the_image , out_image , 

diff, min_area, max_area, 
rows, cols) 
long cols, rows; 
short **the_image, 

** out _ image, 

diff, min_area, max_area; 

{ 

int a, b, big_count, count, i, j, k, 1, 
not_f inished, length, width; 
printf ("\nDEBUG> GSR> before calling pixel grow"); 
pixel_grow(the_image , out_image, diff, 
min_area, max_area, 
rows, cols); 

printf ("\nDEBUG> GSR> after calling pixel grow"); 

> /* ends gray_shade_region */ 
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/******************************************* 

* edge_gray_shade_region( . . 

* This function segments an image by 

* growing gray shade regions inside of 

* edges. It combines the techniques 

* of the edge_region and gray_shade_region 

* functions. 

* The steps are : 

* . detect edges 

* . threshold edge output to a 

* percent value 

* . lay the edges on top of the original 

* image to eliminate them from 

* consideration 

* . grow regions 

* 

*******************************************/ 

edge_gray_shade_region ( in_name , the_image , 
out_image, edge_type, 
min_area, max_area, diff, percent, 
set_value, erode, 
rows, cols, bits_per_pixel) 
char in_name [] ; 

float percent; 

int edge_type ; 

long bits_per_pixel, cols, rows; 

short diff, erode, 

max_area, min_area, 
set_value, 

**the_image , 

** out _ image ; 

{ 

int a , b , count , i , j , k , 

length, width; 
short cutoff ; 

unsigned long histogram [GRAY_LEVELS+1] ; 



/*************************** 
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* Detect the edges . Do 

* not threshold. 

****************************/ 

if (edge_type == 1 II 
edge_type == 2 II 
edge_type == 3) 

detect_edges (the_image , out_image , 
edge_type, 0, 0, 
rows, cols, 
bits_per_pixel) ; 

if (edge_type == 4){ 

quick_edge(the_image, out_image, 

0 , 0 , 

rows, cols, 
bits_per_pixel) ; 

> /* ends if 4 */ 

if(edge_type == 5){ 

homogeneity (the_image , out_image , 
rows, cols, 
bits_per_pixel , 

0 , 0 ); 

} /* ends if 5 */ 

if (edge_type == 6){ 

dif f erence_edge (the_image , out_image , 
rows, cols, 
bits_per_pixel , 

0 , 0 ); 

} /* ends if 6 */ 

if (edge_type == 7){ 

contrast_edge (the_image , out_image , 
rows, cols, 
bits_per_pixel , 

0 , 0 ); 

} /* ends if 7 */ 

if(edge_type == 8){ 

gaussian_edge (the_image , out_image , 
rows, cols, 
bits_per_pixel , 
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3 , 0 , 0 ); 

} /* ends if 8 */ 

if (edge_type == 10) { 

range (the_image, out_image, 
rows, cols, 
bits_per_pixel , 

3 , 0 , 0 ); 

} /* ends if 10 */ 

if(edge_type == 11) { 

variance (the_image, out_image, 
rows, cols, 
bits_per_pixel , 

0 , 0 ); 

} /* ends if 11 */ 

/**write_array_into_tiff _image("f : el .tif " , out_image, 
il, ie, 11, le);**/ 

/* copy out_image to the_image */ 
for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 

t he_ image [i] [j] = out_image [i] [j] ; 

/****************************** 

* Threshold the edge detector 

* output at a given percent. 

* This eliminates the weak 

* edges . 

* 

*******************************/ 

zero_histogram (histogram, GRAY_LEVELS+1) ; 
calculate_histogram(the_image , histogram, 
rows , cols) ; 

find_cutoff_point (histogram, percent, &cutoff, 
rows , cols) ; 

threshold_image_array (the_image , out_image , 
GRAY_LEVELS , cutoff, 
set_value, rows, cols); 



if (erode != 0){ 
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/* copy out _ image to the _ image */ 
for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 

the_image [i] [j] = out_image [i] [j] ; 
erode_ image _ array (the_image , out_image , 
set_value, erode, 
rows , cols) ; 

> /* ends if erode */ 

/******************************* 

* Read the original gray shade 

* image back into the_image . 

*******************************/ 
read_image_array (in_name , the_image) ; 
/******************************* 

* Overlay the edge values 

* on top of the original 

* image by setting them to 

* F0RGET_IT so the region 

* growing will not use those 

* points. 

*******************************/ 

for(i=0; iCrows; i++) 
for(j=0; j<cols; j++) 

if (out_image [i] [j] == set_value) 
the_image [i] [j] = FORGET, IT; 

/**write_array_into_tiff_image("f : e4.tif " , the_image, 
il, ie, 11, le) ;**/ 

pixel_grow(the_image , out_image, diff, 
min_area, max_area, 
rows, cols); 



> /* ends edge_gray_shade_region */ 
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show_stackp() 

{ 

char r[80] ; 

struct stacksp *temp; 
temp = stackp; 
while (temp != NULL){ 

printf ("\n\t\t\t\t7.d. °/ 0 d °/,x "/ 0 x" ,temp->x,temp->y, temp, temp->next) ; 
temp = temp->next; 

} 



int is_not_emptyp (pointer) 
struct stacksp *pointer; 

{ 

int result = 0; 
if (pointer ! = NULL) 
result = 1; 
return (result) ; 

} /* ends is_empty */ 



pushp(x, y) 

short x, y; 

{ 

struct stacksp *new_one; 

new_one = (struct stacksp *) 

calloc(l, sizeof (struct stacksp )); 
new_one->next = stackp; 
new_one->x = x; 
new_one->y = y; 
stackp = new_one; 

} /* ends push */ 



popp (x , y) 

short *x, *y ; 
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struct stacksp *temp; 



temp 


= stackp; 


*x 


= stackp->x; 


*y 


= stackp->y; 


stackp 


= stackp->next 



free (temp) ; 

> /* ends pop */ 



Listing 10.2 - The Segmentation Subroutines of this Chapter 



/*********************************************** 



* file main2seg.c 

* Functions: This file contains 

* main 

* 

* Purpose : 

* This is a calling program that calls 

* the three new segmentation techniques 

* discussed in Image Processing part 10. 



External Calls : 

imageio.c - does_not_exist 
get_image_size 
get_bitsperpixel 
allocate_image_array 
free_image_array 
create_f ile_if_needed 
r e ad_ image _ array 
write_image_array 
segment2.c - edge_region 

gray_shade_region 

edge_gray_shade_region 
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* Modifications: 

* 5 December 1992 - created 

* 15 August 1998 - modified to work on entire 

* images at once . 

* 

***********************************************/ 
#include "cips.h" 



short **the_image; 
short * * out _ image ; 

main(argc, argv) 
int argc ; 
char *argv [] ; 

{ 

char name 1 [80], name2[80], low_high [80] , type [80] ; 

float percent; 

int i , j , 

looking = 1; 

long length, width, bits_per_pixel; 

short value, value2, value3, 

value4, value5, value6; 
struct tif f _header_struct image_header ; 

/*********************************************** 

* 

* Interpret the command line parameters. 

* 

************************************************/ 

if (argc < 4){ 
printf ( 

"\n\nNot enough parameters:" 

"\n" 

"\n usage: main2seg in-file out-file type" 

" [values ...]" 

"\n" 

"\n recall type: Edge-region edge-gray-grow (C) " 

" Gray-shade-grow" 

"\n" 

"\n main2seg in-file out-file C percent " 
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"edge-type " 

"\n min-area max-area diff set-value erode" 

"\n main2seg in-file out-file E percent " 

"edge-type " 

"\n min-area max-area diff set-value erode" 

"\n main2seg in-file out-file G diff " 



"\n" 
"\n") ; 
exit(O) ; 

> 



strcpy (namel 
strcpy (name2 
strcpy (type , 
if (type [0] == 
type [0] == 
percent = 
value 
value2 = 
value3 = 
value4 = 
value5 = 
value6 = 



argv [1] ) ; 
argv [2] ) ; 
argv [3] ) ; 

= ’ e ’ || type [0] 
= ’ c ’ II type [0] 
atof (argv [4] ) ; 
atoi(argv[5] ) ; 
atoi(argv[6] ) ; 
atoi (argv [7] ) ; 
atoi(argv[8] ) ; 
atoi (argv [9] ) ; 
atoi (argv [10] ) ; 



> 

else{ 

value = atoi (argv [4] ) ; 
value2 = atoi (argv [5] ) ; 
value3 = atoi (argv [6] ) ; 



> 



’E> I I 
’C’M 



if (does_not_exist (namel) ) { 
printf ("\nERR0R input file 7 0 s does not exist", 
namel) ; 

exit(0) ; 

> 



/****************************************** 

* 

* Read the input image header, allocate 

* the image arrays, and read the input 

* image . 

* 

*******************************************/ 
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get_image_size(namel, &length, fewidth) ; 
get_bitsperpixel (namel , &bits_per_pixel) ; 

the_image = allocate_image_array (length, width); 
out_image = allocate_image_array (length, width); 

create_file_if_needed (namel , name2, out _ image ) ; 
read_image_array (namel , the_image) ; 



if (type [0] == 1 e ’ || type[0] == ’E’){ 

edge_region(the_image , out_image , 
value , value2 , 
value3, value4, percent, 
value5 , value6 , 
length, 
width, 

bits_per_pixel) ; 

} /* ends edge_region */ 



if (type [0] == ’g’ II type [0] == ’G’){ 

gray_shade_region (the_image , out_image , 
value , 

value2 , value3 , 
length , 
width) ; 

> /* ends gray_shade_region */ 



if (type [0] == ’c’ II type[0] == ’C’){ 
edge_gray_shade_region (namel , 
the_image, out_image, 
value, value2, value3, value4, 
percent , value5 , value6 , 
length, 
width, 

bits_per_pixel) ; 

} /* ends edge_gray_shade_region */ 

write_image_array(name2, out_image) ; 
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free_image_array(out_image, length) ; 
f ree_image_array (the_image , length) ; 

)- /* ends main */ 

Listing 10.3 - The main2seg Program 



F.ll Code Listings for Chapter 11 

/********************************************** 

* 

* file ed.c 

* 

* Functions: This file contains 

* erosion 

* dilation 

* mask_erosion 

* mask_dilation 

* interior_outline 

* exterior_outline 

* copy_3_x_3 

* opening 

* closing 

* get_shape_options 

* 

* Purpose : 

* These functions perform the erosion, 

* dilation, outlining, opening and 

* closing operations. 

* External Calls : 

* none 



* Modifications: 

* 14 March 1993 - created 

* 21 August 1998 - modified to work on entire 

* images at once . 

************************************************/ 



#include "cips.h" 
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short edmaskl [3] [3] 



short edmask2 [3] [3] 



short edmask3 [3] [3] 



short edmask4[3] [3] 



{{0, 


1 , 


0>, 


{0, 


1 , 


0>, 


{0, 


1 , 


0}}; 


{{0, 


0 , 


o>, 


{1, 


1 , 




{0, 


0 , 


0»; 


{{0, 


1 , 


o>, 


{1, 


1 , 


1 >, 


{0, 


1 , 


0» ; 


{{1, 


1 , 


1 >, 


{1, 


1 , 




{1, 


1 , 


l}}; 



/sic****************************************** 

* erosion ( . . . 

* This function performs the erosion 

* operation. If a value pixel has more 

* than the threshold number of 0 

* neighbors, you erode it by setting it 

* to 0. 

*******************************************/ 

erosion(the_image, out_image, 
value, threshold, 
rows, cols) 

int threshold; 
short **the_image, 

** out _ image, 
value ; 
cols , rows ; 



long 
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int a, b, count, i, j, k; 

/sit************************** 

* Loop over image array 

****************************/ 

for(i=0; iCrows; i++) 
for(j=0; j<cols; j++) 

out_image[i] [j] = the_image [i] [j] ; 



printf ("\n") ; 

for(i=l; i<rows-l; i++){ 

if ( (i°/.10) == 0) printf ("°/.3d" , i) ; 
f or (j=l ; j<cols-l; j++){ 

if (the_image [i] [j] == value) { 
count = 0; 

for(a=-l; a<=l; a++){ 

for(b=-l; b<=l; b++){ 
if ( (i+a) >= 0){ 

if (the_image [i+a] [j+b] == 0) 
count++ ; 

> 

)- /* ends loop over b */ 

} /* ends loop over a */ 

if (count > threshold){ out_image [i] [j] = 0; 

} 

} /* ends if the_image == value */ 

> /* ends loop over j */ 

} /* ends loop over i */ 

/***** 

f ix_edges (out_image , 3, rows, cols); 

***/ 

)- /* ends erosion */ 



/******************************************* 
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* 

* dilation ( . . . 

* This function performs the dilation 

* operation. If a 0 pixel has more than 

* threshold number of value neighbors , 

* you dilate it by setting it to value. 

* 

*******************************************/ 

dilation(the_image, out_image, 
value, threshold, 
rows, cols) 
int threshold; 

short **the_image, 

** out _ image, 
value ; 

long cols , rows ; 

{ 

int a , b , count , i , j , k ; 

int three = 3; 

/*************************** 

* 

* Loop over image array 

* 

sic***************************/ 

for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 

out_image[i] [j] = the_image[i] [j] ; 

printf ("\n") ; 

f or (i=l ; i<rows-l; i++){ 

if ( (i°/ 0 10) == 0) printf ("%3d" , i) ; 
for(j=l; j<cols-l; j++){ 

out_image [i] [j] = the_image[i] [j] ; 
if (the_image [i] [j] == 0){ 
count = 0; 

for(a=-l; a<=l; a++){ 

f or (b=-l ; b<=l; b++){ 
if (a! =0 && b!=0){ 

if (the_image [i+a] [j+b] == value) 
count++; 
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> /* ends avoid the center pixel */ 

]- /* ends loop over b */ 

} /* ends loop over a */ 

if (count > threshold) 

out_image [i] [j] = value; 

} /* ends if the_image == 0 */ 

)- /* ends loop over j */ 

> /* ends loop over i */ 

/***** 

f ix_edges(out_image, three, rows, cols); 

***/ 

}- /* ends dilation */ 



/******************************************* 

* mask_dilation( . . . 

* This function performs the dilation 

* operation using the erosion-dilation 

* 3x3 masks given above . It works on 

* 0-value images. 

sic******************************************/ 

mask_dilation(the_image , out_image , 
value, mask_type, 
rows, cols) 
int mask_type ; 

short **the_image , 

** out _ image , 
value ; 

long cols, rows; 

■c 

int a, b, count, i, j, k; 

short mask [3] [3] , max; 

/************************************** 

* Copy the 3x3 erosion-dilation mask 

* specified by the mask_type . 
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* 

sic**************************************/ 

swit ch (mask_type ) -[ 
case 1 : 

copy_3_x_3(mask, edmaskl) ; 
break; 
case 2: 

copy_3_x_3(mask, edmask2) ; 
break; 
case 3: 

copy_3_x_3(mask, edmask3) ; 
break; 
case 4: 

copy_3_x_3(mask, edmask4) ; 
break; 
default : 

printf ("\nlnvalid mask type, using mask 4"); 

copy_3_x_3(mask, edmask4) ; 

break; 



/*************************** 

* 

* Loop over image array 

* 

****************************/ 



printf ("\n") ; 

f or (i=l ; i<rows-l; i++){ 

if C (i%10) == 0) printf ("7,3d" , i) ; 
for(j=l; j<cols-l; j++){ 
max = 0 ; 

for(a=-l; a<=l; a++){ 

for(b=-l; b<=l; b++){ 

if (mask [a+1] [b+1] == 1){ 

if (the_image [i+a] [j+b] > max) 
max = the_image [i+a] [j+b] ; 
> /* ends if mask == 1 */ 

> /* ends loop over b */ 

> /* ends loop over a */ 

out_image[i] [j] = max; 

I /* ends loop over j */ 
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> /* ends loop over i */ 

/***** 

f ix_edges (out_image , 3, rows, cols); 
***/ 

}- /* ends mask_dilation */ 



/******************************************* 
* mask_erosion( . . . 



* This function performs the erosion 

* operation using the erosion-dilation 

* 3x3 masks given above. It works on 

* 0-value images. 

*******************************************/ 



mask_erosion(the_image , out_image , 
value , mask_type , 
rows, cols) 
int mask_type ; 

short **the_image , 

** out _ image, 
value ; 

long cols, rows; 

4 

int a, b, count, i, j, k; 

short mask [3] [3] , min; 

/sit************************************* 

* Copy the 3x3 erosion-dilation mask 

* specified by the mask_type . 

***************************************/ 



switch (mask_type ) { 
case 1 : 

copy_3_x_3(mask, edmaskl) ; 
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break; 
case 2: 

copy_3_x_3(mask, edmask2) ; 
break; 
case 3: 

copy_3_x_3(mask, edmask3) ; 
break; 
case 4: 

copy_3_x_3(mask, edmask4) ; 
break; 
default : 

printf ("\nlnvalid mask type, using mask 4"); 

copy_3_x_3(mask, edmask4) ; 

break; 



/*************************** 

* 

* Loop over image array 

* 

****************************/ 

printf ("\n") ; 

for(i=l; i<rows-l; i++){ 

if ( (i°/»10) == 0) printf ("%3d" , i) ; 
for(j=l; j<cols-l; j++){ 
min = value; 
for(a=-l; a<=l; a++){ 

for(b=-l; b<=l; b++){ 

if (mask[a+l] [b+1] == 1){ 

if (the_image [i+a] [j+b] < min) 
min = the_image [i+a] [j+b] ; 
}■ /* ends if mask == 1 */ 

} /* ends loop over b */ 

} /* ends loop over a */ 

out_image [i] [j] = min; 

}- /* ends loop over j */ 

} /* ends loop over i */ 

/***** 

f ix_edges(out_image, 3, rows, cols); 

***/ 
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> /* ends mask_erosion */ 



/*********************************************** 

* copy_3_x_3(a, b) 

* This function copies a 3x3 array of shorts 

* from one array to another. It copies array 

* b into array a. 

***********************************************/ 

copy_3_x_3(a, b) 

short a[3][3], b[3][3]; 

{ 

int i, j; 

for(i=0; i<3; i++) 
f or(j=0; j<3; j++) 
a[i][j] = b[i] Cj] ; 

> /* ends copy_3_x_3 */ 



/******************************************* 

* opening (... 

* Opening is erosion followed by dilation. 

* This routine will use the mask erosion 

* and dilation. You could use the other 

* types and you could mix the two types . 

* The number parameter specifies how 

* erosions to perform before doing one 

* dilation. 



*******************************************/ 

opening (the_image, out_image, 

value, mask_type, number, 
rows, cols) 
int number ; 
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int mask_type ; 
short **the_image, 

** out _ image, 
value ; 

long cols , rows ; 

{ 

int a , b , count , i , j , k ; 
short mask [3] [3] , max; 

/************************************** 

* 

* Copy the 3x3 erosion-dilation mask 

* specified by the mask_type. 

* 

sic**************************************/ 

swit ch (mask_type ) -[ 
case 1: 

copy_3_x_3(mask, edmaskl) ; 
break; 
case 2: 

copy_3_x_3(mask, edmask2) ; 
break; 
case 3: 

copy_3_x_3(mask, edmask3) ; 
break; 
case 4: 

copy_3_x_3(mask, edmask4) ; 
break; 
default : 

printf ("\nlnvalid mask type, using mask 4"); 

copy_3_x_3(mask, edmask4) ; 

break; 

} 

for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 

out_image [i] [j] = the_image[i] [j] ; 

mask_erosion(the_image, out_image, 
value, mask_type, 
rows, cols); 

if (number > 1){ 
count = 1 ; 
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while (count < number) { 
count ++; 

mask_erosion(the_image , out_image , 
value , mask_type , 
rows , cols) ; 

> /* ends while */ 

} /* ends if number > 1 */ 

mask_dilation(the_image , 
out _ image , 
value, mask_type, 
rows, cols); 

}- /* ends opening */ 



/******************************************* 

* closing (... 

* Closing is dilation followed by erosion. 

* This routine will use the mask erosion 

* and dilation. You could use the other 

* types and you could mix the two types . 

* The number parameter specifies how 

* dilations to perform before doing one 



*******************************************/ 



closing (the_image , out_image, 

value , mask_type , number , 
rows, cols) 
int number ; 

int mask_type ; 

short **the_image, 

** out _ image, 
value ; 

long cols, rows; 

■c 

int a, b, count, i, j, k; 
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short mask [3] [3] , max; 

printf ("\nCL0SING> value=7«d mask=7od number=7 0 d" .value ,mask_type , number) ; 

/************************************** 

* 

* Copy the 3x3 erosion-dilation mask 

* specified by the mask_type. 

* 

***************************************/ 

swit ch (mask_type ) { 
case 1: 

copy_3_x_3(mask, edmaskl) ; 
break; 
case 2: 

copy_3_x_3(mask, edmask2) ; 
break; 
case 3: 

copy_3_x_3(mask, edmask3) ; 
break; 
case 4: 

copy_3_x_3(mask, edmask4) ; 
break; 
default : 

printf ("\nlnval id mask type, using mask 4"); 

copy_3_x_3(mask, edmask4) ; 

break; 



for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 

out_image[i] [j] = the_image[i] [j] ; 

mask_dilation(the_image, out_image , 
value , mask_type , 
rows, cols) ; 

if (number > 1){ 
count = 1 ; 

while (count < number) { 
count++; 

mask_dilation(the_image , out_image , 
value, mask_type, 
rows, cols); 

I /* ends while */ 
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> /* ends if number > 1 */ 

mask_erosion(the_image, out_image , 
value , mask_type , 
rows , cols) ; 

}■ /* ends closing */ 



/******************************************* 

* interior_outline( . . . 

* This function produces the outline of 

* any "holes" inside an object. The 

* method is: 

* output = erosion of input 

* final output = input - output 

*******************************************/ 

interior_outline (the_image , out_image , 
value , mask_type , 
rows, cols) 
int mask_type ; 

short **the_image , 

** out _ image, 
value ; 

long cols, rows; 

int a, b, count, i, j, k; 

short mask [3] [3] , max; 

/sit************************************* 



* Copy the 3x3 erosion-dilation mask 

* specified by the mask_type . 

***************************************/ 

switch (mask_type ) { 
case 1 : 

copy_3_x_3(mask, edmaskl) ; 
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break; 
case 2: 

copy_3_x_3(mask, edmask2) ; 
break; 
case 3: 

copy_3_x_3(mask, edmask3) ; 
break; 
case 4: 

copy_3_x_3(mask, edmask4) ; 
break; 
default : 

printf ("\nlnvalid mask type, using mask 4"); 

copy_3_x_3(mask, edmask4) ; 

break; 

} 

mask_erosion(the_image , 
out _ image , 
value, mask_type, 
rows, cols); 

for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 
the_image [i] [j] = 

the_image [i] [j] - out_image [i] [j] ; 

for(i=0; i<rows; i++) 
for(j=0; j<cols; j++| 

out_image[i] [j] = the_image[i] [j] ; 

} /* ends interior_outline */ 



/****************************************'. 

* exterior_outline( . . . 

* 

* This function produces the outline of 

* exterior of an object. The 

* method is: 

* output = dilation of input 

* final output = output - input 
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*******************************************/ 

exterior_outline (the_image , out_image , 
value , mask_type , 
rows, cols) 
int mask_type ; 

short **the_image, 

** out _ image, 
value ; 

long cols, rows; 

{ 

int a, b, count, i, j, k; 

short mask [3] [3] , max; 

/sit************************************* 

* Copy the 3x3 erosion-dilation mask 

* specified by the mask_type . 

***************************************/ 

switch (mask_type ) { 
case 1 : 

copy_3_x_3(mask, edmaskl) ; 
break; 
case 2: 

copy_3_x_3(mask, edmask2) ; 
break; 
case 3: 

copy_3_x_3(mask, edmask3) ; 
break; 
case 4: 

copy_3_x_3(mask, edmask4) ; 
break; 
default : 

printf ("\nlnvalid mask type, using mask 4"); 

copy_3_x_3(mask, edmask4) ; 

break; 

> 

mask_dilation(the_image , out_image , 
value, mask_type, 
rows , cols) ; 
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for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 
the_image [i] [j] = 

out_image [i] [j] - the_image [i] [j] ; 

for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 

out_image[i] [j] = the_image [i] [j] ; 

> /* ends exterior_outline */ 

Listing 11.1 - Shape Manipulating Subroutines 



/********************************************** 

* 

* file skeleton. c 

* 

* Functions: This file contains 

* thinning 

* can_thin 

* dilate_not_join 

* can_dilate 

* little_label_and_check 

* special_closing 

* special_opening 

* edm 

* distanc_8 

* mat 

* mat_d 

* 

* Purpose : 

* These functions thin objects in 

* an image, dilate objects, and 

* perform opening and closing 

* without removing or joining 

* objects. 

* 

* External Calls: 



none 
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* Modifications: 

* 7 March 1993 - created 

* 21 August 1998 - modified to work on entire 

* images at once. 

************************************************/ 
#include "cips.h" 



/******************************************* 

* special_opening( . . . 

* Opening is erosion followed by dilation. 

* This routine will use the thinning 

* erosion routine. This will not allow 

* an object to erode to nothing. 

* The number parameter specifies how 

* erosions to perform before doing one 

* dilation. 



*******************************************/ 

special_opening (the_image , out_image , 

value, threshold, number, 
rows, cols) 
int number ; 

short **the_image, 

** out _ image , 
threshold, value; 
long cols, rows; 

int a, b, count, i, j, k; 

thinning (the_image, out_image, 
value, threshold, 1, 
rows, cols); 

if (number > 1){ 
count = 1 ; 
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while (count < number) { 
count++; 

thinning (the_image , out_image, 
value, threshold, 1, 
rows , cols) ; 

)■ /* ends while */ 

} /* ends if number > 1 */ 

dilation(the_image, out_image, 
value, threshold, 
rows, cols); 

} /* ends special_opening */ 



/******************************************* 

* 

* thinning (... 

* 

* Use a variation of the grass fire 

* wave front approach. 

* Raster scan the image left to right 

* and examine and thin the left edge pixels 

* (a 0 to value transition) . Process them 

* normally and "save" the result. Next, 

* raster scan the image right to left and 

* save. Raster scan top to bottom and save. 

* Raster scan bottom to top and save. 

* That is one complete pass . 

* Keep track of pixels thinned for a 

* pass and quit when you make a complete 

* pass without thinning any pixels. 

* 

*******************************************/ 



thinning (the_image, out_image, 

value, threshold, once_only. 




556 



APPENDIX F. SOURCE CODE LISTINGS 



rows, cols) 
int once_only; 
short **the_image , 

** out _ image , 
threshold, value; 
long cols, rows; 

int a, b, big_count, count, i, j, k, 

not_f inished; 

for(i=0; iCrows; i++) 
for(j=0; j<cols; j++) 

out_image[i] [j] = the_image [i] [j] ; 

not_f inished = 1; 
while (not_f inished) { 

if(once_only == 1) 
not _f inished = 0; 
big_count = 0; 

/*************************** 

* 

* Scan left to right 

* Look for 0-value transition 

****************************/ 

printf ("\n") ; 
f or (i=l ; i<rows-l ; i++){ 

if ( (i°/,10) == 0) printf (" 0 /,3d" , i) ; 
f or (j=l ; j<cols-l; j++){ 

if (the_image [i] [j— 1] == 0 && 

the_image [i] [j] == value) { 

count = 0 ; 

for(a=-l; a<=l; a++){ 

for (b=-l ; b<=l ; b++){ 

if (the_image [i+a] [j+b] == 0) 
count ++; 

> /* ends loop over b */ 

> /* ends loop over a */ 

if (count > threshold) { 

if (can_thin(the_image, i, j, value) ){ 
out_image [i] [j] = 0; 
big_count++; 
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} /* ends if can_thin */ 

}- /* ends if count > threshold */ 

]- /* ends if the_image == value */ 

} /* ends loop over j */ 

}- /* ends loop over i */ 

/************************************** 

* 

* Copy the output back to the input. 

* 

**************************************/ 

for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 

the_image [i] [j] = out_image [i] [j] ; 



/*************************** 

* 

* Scan right to left 

* Do this by scanning left 

* to right and look for 

* value-0 transition. 

****************************/ 

printf ("\n") ; 

for(i=l; i<rows-l; i++){ 

if ( (i%10) == 0) printf ("7 0 3d" , i) ; 
f or (j=l ; j<cols-l; j++){ 

if (the_image [i] [j+1] == 0 kk 
the_image[i] [j] == value) { 

count = 0; 

for(a=-l; a<=l; a++){ 

for(b=-l; b<=l; b++){ 

if (the_image [i+a] [j+b] == 0) 
count++; 

} /* ends loop over b */ 

} /* ends loop over a */ 

if (count > threshold) { 

if (can_thin(the_image, i, j, value) ){ 
out_image [i] [j] = 0; 
big_count++; 

} /* ends if can_thin */ 

}■ /* ends if count > threshold */ 
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} /* ends if the_image == value */ 

} /* ends loop over j */ 

]- /* ends loop over i */ 

/************************************** 

* Copy the output back to the input . 

* 

**************************************/ 

for(i=0; iCrows; i++) 
for(j=0; j<cols; j++) 

the_image [i] [j] = out_image [i] [j] ; 



/*************************** 

* Scan top to bottom 

* Look for 0-value transition 

* 

****************************/ 

printf ("\n") ; 

for(j=l; j<cols-l; j++){ 

if ( (j°/.10) == 0) printf (" 0 /,3d" , j); 
f or (i=l ; i<rows-l; i++){ 

if (the_image [i— 1] [j] == 0 && 

the_image [i] [j] == value) { 

count = 0; 

for(a=-l; a<=l; a++){ 

for(b=-l; b<=l; b++){ 

if (the_image [i+a] [j+b] == 0) 
count ++; 

I /* ends loop over b */ 

} /* ends loop over a */ 

if (count > threshold) { 

if (can_thin(the_image , i, j, value) ){ 
out_image [i] [j] = 0; 
big_count++; 

} /* ends if can_thin */ 

> /* ends if count > threshold */ 

} /* ends if the_image == value */ 

} /* ends loop over i */ 

> /* ends loop over j */ 
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/************************************** 

* Copy the output back to the input . 

**************************************/ 

for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 

the_image [i] [j] = out_image [i] [j] ; 



/*************************** 

* Scan bottom to top 

* Do this by scanning top 

* to bottom and look for 

* value-0 transition. 

* 

****************************/ 

printf ("\n") ; 
f or (j=l ; j<cols-l; j++){ 

if ( (j°/.10) == 0) printf ("7,3d" , j); 
for(i=l; i<rows-l; i++){ 

if (the_image [i+1] [j] == 0 && 

the_image [i] [j] == value){ 

count = 0; 

for(a=-l; a<=l; a++){ 

for(b=-l; b<=l ; b++){ 

if (the_image [i+a] [j+b] == 0) 
count++; 

> /* ends loop over b */ 

}• /* ends loop over a */ 

if (count > threshold) { 

if (can_thin(the_image , i, j, value) ){ 
out_image [i] [j] = 0; 
big_count++; 

} /* ends if can_thin */ 

> /* ends if count > threshold */ 

> /* ends if the_image == value */ 

} /* ends loop over i */ 

> /* ends loop over j */ 

/************************************** 
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* 

* Copy the output back to the input . 

* sic************************************/ 

for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 

the_image [i] [j] = out_image [i] [j] ; 

/************************************** 

* 

* Now look at the result of this big 

* pass through the image. 

***************************************/ 

printf ("\n\nThinned °/ 0 d pixels", big_count) ; 
if(big_count == 0) 
not_finished = 0; 
else{ 

for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 

the_image[i] [j] = out_image [i] [j] ; 
> /* ends else */ 

} /* ends while not_finished */ 

/**** 

f ix_edges(out_image, 3, rows, cols); 

*****/ 

> /* ends thinning */ 



/******************************************* 



* can_thin(... 

* Look at the neighbors of the center pixel. 

* If a neighbor == value, then it must 

* have a neighbor == value other than the 

* center pixel. 
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* 

* Procedure : 

* . Copy the 3x3 area surrounding pixel 

* i,j to a temp array. 

* . Set the center pixel to zero. 

* . Look at each non-zero pixel in temp. 

* . If you cannot find a non-zero 

* neighbor . 

* . Then you cannot thin. 

* 

*******************************************/ 

can_thin(the_image , i, j, value) 
int i , j ; 

short **the_image , value ; 

{ 

int a , b , c , d , count , 

no_neighbor, one=l, zero=0; 
short temp [3] [3] ; 

/sit************************************* 

* 

* Copy the center pixel and its 

* neighbors to the temp array. 

* 

***************************************/ 

for(a=-l; a<2; a++) 
f or (b=-l ; b<2; b++) 

temp [a+1] [b+1] = the_image [i+a] [b+j] ; 

/sit************************************* 

* 

* Set the center of temp to 0 . 

* 

***************************************/ 
temp[l] [1] = 0; 

/sit************************************* 

* 

* Check the non-zero pixels in temp. 

* 

***************************************/ 
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for(a=0; a<3; a++){ 
for (b=0; b<3; b++){ 

if (temp [a] [b] == value) { 
temp [a] [b] =0; 

/sit******************************** 

* Check the neighbors of this pixel 

* If there is a single non-zero 

* neighbor, set no_neighbor = 0. 

**********************************/ 

no_neighbor = 1; 
for(c=-l; c<2; c++){ 
f or (d=-l ; d<2; d++){ 
if( ((a+c) >= 0) && 

((a+c) <= 2) && 

((b+d) >= 0) && 

((b+d) <= 2) ){ 

if (temp [a+c] [b+d] == value) { 
no_neighbor = 0; 

> /* ends if temp == value */ 

} /* ends if part of temp array */ 

]■ /* ends loop over d */ 

} /* ends loop over c */ 

temp [a] [b] = value; 

/sit******************************** 



If the non-zero pixel did not 
have any non-zero neighbors, 
no_neighbor still equals 1, 
and we cannot thin, so return 
zero . 



**********************************/ 

if (no_neighbor) { 
return (zero) ; 

} 

} /* ends if temp [a] [b] == value */ 

> /* ends loop over b */ 

} /* ends loop over a */ 
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/sit************************************* 

* 

* First, ensure the object is more 

* than two wide. If it is two wide, 

* you will thin out the entire object. 

* Check in all eight directions. 

* If the distance to a zero is 0 or 

* >= 2, then ok you can thin so go 

* on to the remainder of this routine. 

* If not, you cannot thin so return 

* zero. 

* 

***************************************/ 
return (one) ; 

} /* ends can_thin */ 



/******************************************* 

* 

* special_closing( . . . 

* Closing is dilation followed by erosion. 

* This routine will use the dilate_not_join 

* dilation routine. This will not allow 

* two separate objects to join. 

* 

* The number parameter specifies how 

* dilations to perform before doing one 

* erosion. 

*******************************************/ 

special_closing(the_ image , out _ image , 

value, threshold, number, 
rows, cols) 
int number ; 

short **the_image, 

** out _ image, 
threshold, value; 
long cols , rows ; 



{ 
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int a, b, count, i, j, k; 

dilate_not_join(the_image , out_image , 
value, threshold, 
rows , cols) ; 



if (number > 1){ 
count = 1; 

while (count < number) { 
count ++; 

dilate_not_ j oin (the_image , out_image , 
value, threshold, 
rows , cols) ; 

> /* ends while */ 

} /* ends if number > 1 */ 

erosion(the_image, out_image, 
value, threshold, 
rows, cols); 

> /* ends special_closing */ 



* dilate_not_join( . . . 

* Use a variation of the grass fire 

* wave front approach. 

* Raster scan the image left to right 

* and examine and dilate the left edge pixels 

* (a value to 0 transition) . Process them 

* normally and "save" the result. Next, 

* raster scan the image right to left and 

* save. Raster scan top to bottom and save. 

* Raster scan bottom to top and save. 

* That is one complete pass. 
*******************************************/ 



dilate_not_ j oin (the_image , out_image , 
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value, threshold, 
rows, cols) 
short **the_image, 

** out _ image, 
threshold, value; 
long cols , rows ; 

{ 

int a , b , count , i , j , k ; 

for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 

out_image[i] [j] = the_image[i] [j] ; 

/*************************** 

* Scan left to right 

* Look for value-0 transition 

* 

****************************/ 

printf ("\n") ; 
f or (i=l ; i<rows-l ; i++){ 

if ( (i°/,10) == 0) printf ("7,3d" , i) ; 
for(j=l; j<cols-l; j++){ 

if (the_image [i] [j-1] == value && 
the_image[i] [j] == 0){ 

count = 0; 

for(a=-l; a<=l; a++){ 

f or (b=-l ; b<=l ; b++){ 

if (the_image [i+a] [j+b] ==value) 
count++; 

> /* ends loop over b */ 

> /* ends loop over a */ 

if (count > threshold) { 

if (can_dilate (the_image , i , j , value) ) { 
out_image [i] [j] = value; 

} /* ends if can_dilate */ 

I /* ends if count > threshold */ 

)- /* ends if the_image == value */ 

} /* ends loop over j */ 

> /* ends loop over i */ 

/************************************** 

* 

* Copy the output back to the input . 
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* 

**************************************/ 

for(i=0; iCrows; i++) 
for(j=0; j<cols; j++) 

the_image [i] [j] = out_image [i] [j] ; 



/*************************** 

* 

* Scan right to left 

* Do this by scanning left 

* to right and look for 

* 0-value transition. 

****************************/ 

printf ("\n") ; 
f or (i=l ; i<rows-l ; i++){ 

if ( (i°/,10) == 0) printf ("7,3d" , i) ; 
f or (j=l ; j<cols-l; j++){ 

if (the_image [i] [j+1] == value && 
the_image[i] [j] == 0){ 

count = 0 ; 

for(a=-l; a<=l; a++){ 

for (b=-l ; b<=l ; b++){ 

if (the_image [i+a] [j+b] ==value) 
count ++; 

> /* ends loop over b */ 

> /* ends loop over a */ 

if (count > threshold) { 

if (can_dilate (the_image , i , j , value) ) { 
out_image [i] [j] = value; 

} /* ends if can_dilate */ 

} /* ends if count > threshold */ 

} /* ends if the_image == value */ 

} /* ends loop over j */ 

)- /* ends loop over i */ 

/************************************** 

* 

* Copy the output back to the input. 

* 

**************************************/ 
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for(i=0; iCrows; i++) 
for(j=0; j<cols; j++) 

the_image [i] [j] = out_image [i] [j] ; 



/*************************** 

* Scan top to bottom 

* Look for value-0 transition 

* 

****************************/ 

printf ("\n") ; 
for(j=l; j<cols-l; j++){ 

if ( C j %10) == 0) printf ("7,3d" , j); 
for(i=l; i<rows-l; i++){ 

if (the_image [i— 1] [j] == value && 
the_image[i] [j] == 0){ 

count = 0; 

for(a=-l; a<=l; a++){ 

f or (b=-l ; b<=l ; b++){ 

if (the_image [i+a] [j+b] ==value) 
count++; 

} /* ends loop over b */ 

}■ /* ends loop over a */ 

if (count > threshold) { 

if (can_dilate (the_image , i , j , value) ) { 
out_image [i] [j] = value; 

} /* ends if can_dilate */ 

> /* ends if count > threshold */ 

> /* ends if the_image == value */ 

> /* ends loop over i */ 

> /* ends loop over j */ 

/************************************** 

* Copy the output back to the input . 

**************************************/ 

for(i=0; iCrows; i++) 
for(j=0; j<cols; j++) 

the_image [i] [j] = out_image [i] [j] ; 
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/*************************** 

* Scan bottom to top 

* Do this by scanning top 

* to bottom and look for 

* 0-value transition. 

* 

****************************/ 

printf ("\n") ; 
f or (j=l ; j<cols-l; j++){ 

if ( (j°/.10) == 0) printf (" 0 /,3d" , j); 
for(i=l; i<rows-l; i++){ 

if (the_image [i+1] [j] == value && 
the_image[i] [j] == 0){ 

count = 0 ; 

for(a=-l; a<=l; a++){ 

for(b=-l; b<=l ; b++){ 

if (the_image [i+a] [j+b] ==value) 
count ++; 

> /* ends loop over b */ 

> /* ends loop over a */ 

if (count > threshold) { 

if (can_dilate (the_image , i , j , value) ) -[ 
out_image [i] [j] = value; 

} /* ends if can_dilate */ 

} /* ends if count > threshold */ 

} /* ends if the_image == value */ 

} /* ends loop over i */ 

> /* ends loop over j */ 

/************************************** 

* Copy the output back to the input . 

**************************************/ 

for(i=0; icrows; i++) 
for(j=0; j<cols; j++) 

the_image [i] [j] = out_image [i] [j] ; 



/**** 

f ix_edges (out_image , 3, rows, cols); 
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*****/ 

} /* ends dilate_not_join */ 



/******************************************* 

* 

* can_dilate( . . . 

* 

* This function decides if you can dilate 

* (set to value) a pixel without joining 

* two separate objects in a 3x3 area. 

* First, you grow regions inside the 3x3 

* area. Next, check if the center pixel 

* has neighbors with differing values. 

* If it does, you cannot dilate it because 

* that would join two separate objects. 

* 

*******************************************/ 

can_dilate(the_image, i, j, value) 
int i , j ; 

short **the_image , value ; 

{ 

int a, b, c, d, count, found=0, 
no_neighbor , 
stack_pointer=-l , 
stack_empty=l , 
stack [12] [2] , 
pop_a, pop_b, 
one=l , 
zero=0 ; 

short first_value, label = 2, temp[3][3]; 

/sit************************************* 

* 

* Copy the center pixel and its 

* neighbors to the temp array. 

* 

***************************************/ 
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for(a=-l; a<2; a++) 
for (b=-l ; b<2 ; b++) 

temp[a+l] [b+1] = the_image [i+a] [b+j] ; 



* Grow objects inside the temp array. 

* 

***************************************/ 

for(a=0; a<3; a++){ 
for(b=0; b<3; b++){ 
stack_empty = 1 ; 
stack_pointer = -1; 
if (temp [a] [b] == value) { 

little_label_and_check(temp, stack, label, 
&stack_empty , 
&stack_pointer, 
a, b, value); 

found = 1; 

} /* ends if temp == value */ 

while (stack_empty == 0){ 

pop_a = stack [stack_pointer] [0] ; /* POP */ 
pop_b = stack [stack_pointer] [1] ; /* POP */ 
— stack_pointer ; 
if (stack_pointer <= 0){ 
stack_pointer = 0; 
stack_empty = 1 ; 

} /* ends if stack_pointer */ 

little_label_and_check(temp, stack, label, 
&stack_empty, 
&stack_pointer, 
pop_a, pop_b, value); 
} /* ends while stack_empty == 0 */ 

if (found) { 
found = 0; 
label++; 

} /* ends if object_found */ 

> /* ends loop over b */ 

} /* ends loop over a */ 



/************************************** 
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* Look at the center pixel. If it 

* has two non-zero neigbors whose 

* pixels are not the same , then 

* you cannot dilate . 

* 

***************************************/ 

first_value = -1; 
for(a=0; a<3; a++){ 
for(b=0; b<3; b++){ 

if (temp [a] [b] ! = 0 && 

first_value == -1){ 
first_value = temp [a] [b] ; 

> 

if (temp [a] [b] ! = 0 && 
first_value != -1){ 
if (temp [a] [b] != f irst_value){ 
return (zero) ; 

} 

> 

> /* ends loop over b */ 

} /* ends loop over a */ 

return (one) ; 

} /* ends can_dilate */ 



/******************************************* 

* 

* little_label_and_check( . . . 

* This function labels the objects in 

* in a 3x3 area. 

* sic*****************************************/ 

little_label_and_check(temp, stack, label, stack_empty, 
stack_pointer, a, b, value) 
int a, b, stack [12] [2] , 

*stack_empty, *stack_pointer ; 
short temp [3] [3], label, value; 
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I 

int c , d ; 

temp [a] [b] = label; 
for(c=a-l; c<=a+l; c++){ 
for (d=b-l ; d<=b+l; d++){ 
if(c >= 0 && 

c <= 2 && 

d >= 0 && 

d <= 2) 

if (temp [c] [d] == value) { /* PUSH */ 

*stack_pointer = *stack_po inter + 1; 
stack [*stack_pointer] [0] = c; 
stack [*stack_pointer] [1] = d; 
*stack_empty = 0; 

} /* ends if temp == value */ 

)- /* ends loop over d */ 

> /* ends loop over c */ 

> /* ends little_label_and_check */ 



edm( . . 

This function calculates the Euclidean 
distance measure for objects in an image. 
It calculates the distance from any 
pixel=value to the nearest zero pixel 



edm(the_image , out_image, 
value, rows, cols) 
short **the_image, 

** out _ image, 
value ; 

long cols, rows; 

■c 

int a, b, count, i, j, k; 
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for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 
out_image [i] [j] = 0; 

/*************************** 

* 

* Loop over image array 

* 

****************************/ 

printf ("\n") ; 

for(i=0; i<rows; i++){ 

if C (i°/.10) == 0) printf ("’/,3d" , i) ; 
for(j=0; j<cols; j++){ 

if (the_image [i] [j] == value) 

out_image [i] [j] = distance_8(the_image , 

i > j. 

value , 

rows, cols); 

> /* ends loop over j */ 

} /* ends loop over i */ 

} /* ends edm */ 



/******************************************* 

* 

* distance_8( . . 

* 

* This function finds the distance from 

* a pixel to the nearest zero pixel. 

* It search in all eight directions. 

*******************************************/ 

distance_8(the_image , a, b, value, rows, cols) 
int a, b; 

short **the_image, value; 
long cols, rows; 

{ 

int i, j, measuring; 
short distl = 0, 
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dist2 = 0, 
dist3 = 0, 
dist4 = 0, 
dist5 = 0, 
dist6 = 0, 
dist7 = 0, 
dist8 = 0, 
result = 0; 

/* straight up */ 
measuring = 1; 
i = a; 

j = b ; 

while (measuring) -( 
i — ; 

if (i >= 0){ 

if (the_image [i] [j] == value) 
distl++; 
else 

measuring = 0; 

> 

else 

measuring = 0; 

} /* ends while measuring */ 

result = distl; 

/* straight down */ 
measuring = 1 ; 
i = a; 

j = b; 

while (measuring) { 
i++; 

if (i <= rows-l){ 

if (the_image [i] [j] == value) 
dist2++; 
else 

measuring = 0; 

> 

else 

measuring = 0; 

> /* ends while measuring */ 

if(dist2 <= result) 
result = dist2; 



/* straight left */ 
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measuring = 1; 

j = b ; 

while (measuring) { 

j--; 

if (j >= OH 

if (the_image [i] [j] == value) 
dist3++; 
else 

measuring = 0; 

> 

else 

measuring = 0; 

} /* ends while measuring */ 

if(dist3 <= result) 
result = dist3; 

/* straight right */ 
measuring = 1; 
i = a; 
j = b; 

while (measuring) { 

j ++ ; 

if ( j <= cols-l){ 

if (the_image [i] [j] == value) 
dist4++; 
else 

measuring = 0 ; 

> 

else 

measuring = 0; 

} /* ends while measuring */ 

if (dist4 <= result) 
result = dist4; 

/* left and up */ 
measuring = 1 ; 

j = b ; 

while (measuring) { 

j--; 
i — ; 

if (j >= 0 && i>=0){ 

if (the_image [i] [j] == value) 
dist5++; 
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else 

measuring = 0; 

> 

else 

measuring = 0; 

} /* ends while measuring */ 

dist5 = (dist5*14)/10; 
if(dist5 <= result) 
result = dist5; 

/* right and up */ 
measuring = 1; 
i = a; 

j = b ; 

while (measuring) -( 

j++; 

i — ; 

if ( j <=cols-l kk i>=0){ 

if (the_image [i] [j] == value) 
dist6++; 
else 

measuring = 0; 

> 

else 

measuring = 0; 

} /* ends while measuring */ 

dist6 = (dist6*14)/10; 
if(dist6 <= result) 
result = dist6; 

/* right and down */ 
measuring = 1; 
i = a; 

j = b ; 

while (measuring) -( 

j++; 

i++; 

if ( j <=cols-l kk i<=rows-l){ 
if (the_image [i] [j] == value) 
dist7++; 
else 

measuring = 0; 

> 

else 

measuring = 0; 
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> /* ends while measuring */ 
dist7 = (dist7*14)/10; 
if(dist7 <= result) 

result = dist7 ; 

/* left and down */ 
measuring = 1 ; 
i = a; 

j = b; 

while (measuring) { 

j--; 

i++; 

if ( j >=0 && i<=rows-l){ 

if (the_image [i] [j] == value) 
dist8++; 
else 

measuring = 0 ; 

> 

else 

measuring = 0; 

> /* ends while measuring */ 
dist8 = (dist8*14)/10; 

if (dist8 <= result) 
result = dist8; 

return (result) ; 

} /* ends distance_8 */ 



/******************************************* 

* mat ( . . 

* This function finds the medial axis 

* transform for objects in an image. 

* The mat are those points that are 

* minimally distant to more than one 

* boundary point. 

* 



*******************************************/ 
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mat(the_image, out_image, 
value, rows, cols) 
short **the_image , 

** out _ image , 
value ; 

long cols, rows; 

■c 

int a, b, count, i, j, k, 
length, width; 

for(i=0; iCrows; i++) 
for(j=0; j<cols; j++) 
out_image[i] [j] =0; 

/sit************************** 

* Loop over image array 

****************************/ 

printf ("\n") ; 

for(i=0; i<rows; i++){ 

if ( (i7.10) == 0) printf 3d" , i) ; 
for(j=0; j<cols ; j++){ 

if (the_image [i] [j] == value) 

out_image [i] [j] = mat_d(the_image, 

i , j , value , 
rows, cols); 

> /* ends loop over j */ 

} /* ends loop over i */ 

> /* ends mat */ 



/******************************************* 

* mat_d( . . 

* This function helps find the medial 

* axis transform. 

* This function measures the distances 

* from the point to a zero pixel in all 
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* eight directions. Look for the two 

* shortest distances in the eight distances. 

* If the two shortest distances are 

* equal, then the point in question 

* is minimally distant to more than one 

* boundary point. Therefore, it is 

* on the medial axis so return a value. 

* Otherwise, return zero. 

* 

*******************************************/ 



mat_d(the_image, a, b, value, rows, 
int a , b ; 

short **the_image , value ; 
long cols, rows; 



int i , j , measuring 
short distl = 0, 
dist2 = 0, 
dist3 = 0, 
dist4 = 0, 
dist5 = 0, 
dist6 = 0, 
dist7 = 0, 
dist8 = 0, 
mini 
min2 



= GRAY_LEVELS , 
= GRAY_LEVELS , 



result = 0; 



cols) 



/* straight up */ 
measuring = 1; 
i = a; 
j = b; 

while (measuring) { 
i — ; 

if(i >= 0){ 

if (the_image [i] [j] == value) 
distl++; 
else 

measuring = 0; 

> 

else 

measuring = 0; 

} /* ends while measuring */ 

result = distl; 
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mini = distl; 

/* straight down */ 
measuring = 1 ; 
i = a; 

j = b ; 

while (measuring) -( 
i++; 

if (i <= rows-l){ 

if (the_image [i] [j] == value) 
dist2++; 
else 

measuring = 0; 

> 

else 

measuring = 0; 

} /* ends while measuring */ 

if(dist2 <= result) 
result = dist2; 
if(dist2 < minlH 
min2 = mini; 
mini = dist2; 

> 

else 

if(dist2 < min2) 
min2 = dist2; 

/* straight left */ 
measuring = 1; 
i = a; 

j = b; 

while (measuring) { 

j— ; 

if (j >= 0){ 

if (the_image [i] [j] == value) 
dist3++; 
else 

measuring = 0; 

> 

else 

measuring = 0; 

} /* ends while measuring */ 

if (dist3 <= result) 
result = dist3; 
if(dist3 < minl){ 
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min2 = mini; 
mini = dist3; 

} 

else 

if (dist3 < min2) 
min2 = dist3; 

/* straight right */ 
measuring = 1; 
i = a; 

j = b; 

while (measuring) { 

j++; 

if ( j <= cols-l){ 

if (the_image [i] [j] == value) 
dist4++; 
else 

measuring = 0; 

> 

else 

measuring = 0; 

} /* ends while measuring */ 

if (dist4 <= result) 
result = dist4; 
if(dist4 < minl){ 
min2 = mini ; 
mini = dist4; 

} 

else 

if (dist4 < min2) 
min2 = dist4; 

/* left and up */ 
measuring = 1 ; 

j = b ; 

while (measuring) { 

j--; 
i — ; 

if (j >= 0 && i>=0){ 

if (the_image [i] [j] == value) 
dist5++; 
else 

measuring = 0; 



} 
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else 

measuring = 0; 

} /* ends while measuring */ 

dist5 = ( (dist5*14)+7)/10; 
if(dist5 <= result) 
result = dist5; 
if(dist5 < minl){ 
min2 = mini; 
mini = dist5; 

> 

else 

if(dist5 < min2) 
min2 = dist5; 

/* right and up */ 
measuring = 1 ; 
i = a; 

j = b; 

while (measuring) { 

j++; 

i — ; 

if ( j <=cols-l && i>=0){ 

if (the_image [i] [j] == value) 
dist6++; 
else 

measuring = 0; 

> 

else 

measuring = 0; 

> /* ends while measuring */ 

dist6 = ( (dist6*14)+7)/10; 
if (dist6 <= result) 
result = dist6; 
if(dist6 < minl){ 
min2 = mini ; 
mini = dist6; 

} 

else 

if(dist6 < min2) 
min2 = dist6; 

/* right and down */ 
measuring = 1; 
i = a; 

j = b ; 
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while (measuring) { 

j++; 

i++; 

if ( j <=cols-l kk i<=rows-l){ 
if (the_image [i] [j] == value) 
dist7++; 
else 

measuring = 0; 

> 

else 

measuring = 0; 

> /* ends while measuring */ 

dist7 = ((dist7*14)+7)/10; 
if(dist7 <= result) 
result = dist7 ; 
if(dist7 < minl){ 
min2 = mini ; 
mini = dist7; 

} 

else 

if (dist7 < min2) 
min2 = dist7; 

/* left and down */ 
measuring = 1 ; 

j = b ; 

while (measuring) { 

j--; 

i++; 

if(j >=0 kk i<=rows-l){ 

if (the_image [i] [j] == value) 
dist8++; 
else 

measuring = 0 ; 

} 

else 

measuring = 0; 

} /* ends while measuring */ 

dist8 = ((dist8*14)+7)/10; 
if (dist8 <= result) 
result = dist8; 
if (dist8 < minl){ 
min2 = mini; 
mini = dist8; 
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> 

else 

if(dist8 < min.2) 
min2 = dist8; 

if (mini == min2) 
result = value; 
else 

result = 0; 



if (mini == 0) 
result = 0; 

return(result) ; 

}■ /* ends mat_d */ 



Listing 11.2 - Shape Manipulating Subroutines 



* 

* 

* 

* 

* 

* 



file mainsk.c 

Functions: This file contains 
main 

show_mainsk_usage 
Purpose : 

This file contains the main calling 
routine that calls the erosion, 
dilation, outline, and skeleton 
functions . 



External Calls: 

imageio.c - create_image_f ile 
r e ad_ image _ array 
write_image_array 
get_image_size 
allocate_image_array 
free_image_array 
ed.c - erosion 
dilation 
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* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 



mask_erosion 

mask_dilation 

interior_outline 

exterior_outline 

opening 

closing 

skeleton. c - thinning 
skeleton 
dilate_not_ j oin 
special_opening 
special_closing 
edm 
mat 

Modifications : 

7 March 1993 - created 

21 August 1998 - modified to work on entire 
images at once. 

19 September 1998 - modified to work with 
all I 0 routines in imageio.c. 



***********************************************/ 



#include "cips.h" 



main(argc, argv) 
int argc; 
char *argv[] ; 



char namel[80], name2[80], type [80] ; 

int i , j , mask_type , 

number, threshold; 
long length, width; 

short value ; 

short **the_image ; 

short **out_ image ; 



/sit*************************************** 

* 

* Interpret the command line parameters. 
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* 

*****************************************/ 

if (argc < 5){ 

show_mainsk_usage() ; 
exit (0) ; 

> 

strcpy (namel , argv[l]); 

strcpy (name2 , argv [2] ) ; 

strcpy (type , argv [3] ) ; 

value = atoi(argv[4] ) ; 

if (does_not_exist (namel) ) { 
printf ("\nERR0R input file °/ 0 s does not exist", 
namel) ; 

exit(0) ; 

} 

if (argc >= 5){ 

threshold = atoi (argv [5] ) ; 
mask_type = atoi (argv [5] ) ; 

> 

if (argc >= 6) 

number = atoi (argv [6] ) ; 



/**************************************** 

* 

* Allocate the arrays, create the output 

* file, read data. 

* 

get_image_size (namel , &length, &width) ; 

the_image = allocate_image_array (length, width); 
out_image = allocate_image_array (length, width); 

create_image_f ile (namel , name2) ; 
read_image_array (namel, the_image) ; 

for(i=0; iclength; i++) 
for(j=0; j<width; j++) 
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out_image [i] [j] = 0; 



* 

* Call the desired function. 

* 

**********************************************/ 



/* thinning */ 

if (strncmpO'thi" , type, 3) == 0){ 
thinning (the_image, out_image, 
value, threshold, 0, 
length, 
width) ; 

} /* ends thinning operation */ 

/* dilate-not-join */ 
if (strncmpO'dnj " , type, 3) == 0){ 

dilate_not_ j oin (the_image , out_image , 
value, threshold, 
length , 
width) ; 

} /* ends dilate_not_join operation */ 

/* erosion */ 

if (strncmpC'ero" , type, 3) == 0){ 
erosion (the_image , out_image, 
value, threshold, 
length, 
width) ; 

} /* ends erosion operation */ 

/* dilation */ 

if (strncmpC'dil" , type, 3) == 0){ 
dilation(the_image , out_image, 
value, threshold, 
length, 
width) ; 

} /* ends dilation operation */ 

/* mask_erosion */ 
if (strncmpC'mer" , type, 3) == 0){ 
mask_erosion (the_image , out_image , 
value , mask_type , 
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length, 
width) ; 

} /* ends mask_erosion operation */ 

/* mask_dilation */ 
if (strncmpO'mdi" , type, 3) == 0){ 

mask_di lat ion(the_ image , out _ image , 
value, mask_type, 
length, 
width) ; 

} /* ends mask_dilation operation */ 

/* interior_outline */ 
if (strncmpO'int" , type, 3) == 0){ 

interior_outline (the_image , out_image , 
value , mask_type , 
length , 
width) ; 

> /* ends interior_outline operation */ 

/* exterior_outline */ 
if (strncmpO'ext" , type, 3) == 0){ 

exterior_outline (the_image , out_image , 
value , mask_type , 
length , 
width) ; 

} /* ends exterior_outline operation */ 

/* opening */ 

if (strncmpO'ope" , type, 3) == 0){ 
opening (the_image, out_image, 

value, mask_type, number, 

length, 

width) ; 

} /* ends opening operation */ 

/* closing */ 

if (strncmpC'clo" , type, 3) == 0){ 
closing (the_image , out_image, 

value, mask_type, number, 

length, 

width) ; 

> /* ends closing operation */ 



/* special opening */ 
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if (strncmpO'spo" , type, 3) == 0){ 

special_opening(the_image, out_image , 

value, threshold, number, 
length , 
width) ; 

} /* ends special opening operation */ 

/* special closing */ 
if (strncmpC'spc" , type, 3) == 0){ 

special_closing (the_image , out_image , 

value, threshold, number, 
length , 
width) ; 

} /* ends special closing operation */ 

/* Euclidean Distance Measure */ 
if (strncmpO'edm" , type, 3) == 0){ 
edm(the_image, out_image, 
value , 
length , 
width) ; 

} /* ends Euclidean distance mesaure */ 

/* medial axis transform */ 
if (strncmpO'mat" , type, 3) == 0){ 
mat (the_image , out_image, 
value , 
length , 
width) ; 

> /* ends medial axis transform operation */ 

write_image_array(name2, out_image) ; 

f ree_image_array(out_image , length) ; 
f ree_image_array(the_image , length) ; 

} /* ends main */ 



show_mainsk_usage ( ) 

{ 
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char response [ 80 ] ; 
print f ( 

"\n\nNot enough parameters:" 

"\n" 

"\n usage: mainsk in-file out-file type value" 

" [threshold-or-mask-type] [number] " 

"\n" 

"\n recall type: EROsion DILation Mask-ERosion" 

"\n Mask_DIlation INTerior-outline" 

"\n EXTerior-outline THInning" 

"\n Dilate-Not-Join OPEning" 

"\n CLOsing SPecial-Opening" 

"\n SPecial-Closing" 

"\n Euclidean-Distance-Measure" 

"\n Medial-Axis-Transform") ; 

printf ("\nPress Enter to see more"); 
gets (response) ; 

printf ("\n" 

"\n MASK DILATION" 

"\nmainsk in-file out-file mdi value mask-type" 

"\n MASK EROSION" 

"\nmainsk in-file out-file mer value mask-type" 

"\n EROSION " 

"\nmainsk in-file out-file ero value threshold" 

"\n DILATION " 

"\nmainsk in-file out-file dil value threshold" 

"\n INTERIOR OUTLINE " 

"\nmainsk in-file out-file int value mask-type" 

"\n EXTERIOR OUTLINE " 

"\nmainsk in-file out-file ext value mask-type" 

"\n OPENING" 

"\nmainsk in-file out-file ope value mask-type number" 
"\n CLOSING" 

"\nmainsk in-file out-file clo value mask-type number"); 
printf ("\n THINNING" 

"\nmainsk in-file out-file thi value threshold" 

"\n DILATE NOT JOIN" 

"\nmainsk in-file out-file dnj value threshold" 

"\n SPECIAL CLOSING" 

"\nmainsk in-file out-file spc value threshold number" 
"\n SPECIAL OPENING" 
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" \nmainsk in-file out-file spo value threshold number" 
"\n EUCLIDEAN DISTANCE MEASURE" 

"\nmainsk in-file out-file edm value" 

"\n MEDIAL AXIS TRANSFORM" 

"\nmainsk in-file out-file mat value" 

"\n " 

"\n value is usually 1" 

"\n mask-type is 1-4 inclusive" 

"\n threshold is 0-8 inclusive" 

"\n number is number of erosions or dilations" 

"\n") ; 

> 



Listing 11.3 - The mainsk Program 



F.12 Code Listings for Chapter 12 



* 

* file boole.c 

* 

* Functions: This file contains 

* and_ image 

* or _ image 

* xor_ image 

* nand_ image 

* nor _ image 

* not _ image 



* Purpose : 

* These functions implement the basic 

* Boolean algebra functions AND, OR, 

* XOR, NAND, NOR, and NOT. 

* 

* External Calls : 

* none 



Modifications : 

3 March 1993 - created 
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* 22 August 1998 - modified to work on 

* entire images at once. 

****** sic****************************************/ 



#include "cips.h" 



/************************************************ 

* 

* and_ image ( . . . 

* This function performs the Boolean AND 

* operation. The output image = ini AND in2. 

* This works for 0 non-zero images. If both 

* ini and in2 are non-zero, the output = ini. 

* 

*************************************************/ 

and_image(the_image, out_image, 
rows, cols) 
short **the_image, 

** out _ image ; 
long cols, rows; 

■c 

int i , j ; 

for(i=0; iCrows; i++){ 

if ( (i7.10) == 0) printf (" °/,d" , i) ; 
for(j=0; j<cols; j++){ 

if ( the_image [i] [j] != 0 && 

out_image [i] [j] != 0) 
out_image [i] [j] = the_image[i] [j] ; 

else 

out_image [i] [j] = 0; 

)- /* ends loop over j */ 

} /* ends loop over i */ 



} /* ends and_ image */ 
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/************************************************ 

* or _ image (... 

* This function performs the Boolean OR 

* operation. The output image = ini OR in2. 

* This works for 0 non-zero images. If both 

* ini and in2 are non-zero, the output = ini. 

* If ini is non-zero, the output = ini. 

* If ini is zero and in2 is non-zero, the 

* output = in2. 

*************************************************/ 

or_image (the_image , out_image, 
rows, cols) 
short **the_image, 

** out _ image ; 
long cols, rows; 

{ 

int i , j ; 

for(i=0; i<rows; i++){ 

if ( (i°/,10) == 0) printf (" °/,d" , i) ; 
for(j=0; j<cols; j++){ 

if ( the_image [i] [j] != 0 II 
out_image [i] [j] !=0){ 
if (the_image [i] [j] != 0) 

out_image[i] [j] = the_image[i] [j] ; 
else 

out_image[i] [j] = out_image [i] [j] ; 

> 

else 

out_image [i] [j] = 0; 

)- /* ends loop over j */ 

} /* ends loop over i */ 

} /* ends or_image */ 



/************************************************ 
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* 

* xor_image( . . . 

* This function performs the Boolean XOR 

* operation. The output image = ini XOR in2. 

* This works for 0 non-zero images. If 

* ini is non-zero and in2 is 0, output = ini. If 

* in2 is non-zero and ini is 0, output = in2. 

* If both ini and in2 are non-zero, output = 0. 

* If both ini and in2 are zero, output = 0. 

* 

*************************************************/ 

xor_image(the_image, out_image, 
rows, cols) 
short **the_image, 

** out _ image ; 
long cols , rows ; 

int i , j ; 
short answer; 

for(i=0; iCrows; i++){ 

if ( (i/olO) == 0) printf(" 7 0 d" , i) ; 
for(j=0; j<cols ; j++){ 

if( (the_image [i] [j] != 0 && 

out_image[i] [j] == 0)) 
answer = the_image [i] [j] ; 
if ( (the_image [i] [j] == 0 && 
out_image[i] [j] != 0)) 
answer = out_image [i] [j] ; 
if ( (the_image [i] [j] == 0 && 
out_image[i] [j] == 0)) 
answer = 0; 

if( (the_image [i] [j] != 0 && 

out_image[i] [j] != 0)) 

answer = 0; 

out_image [i] [j] = answer; 

)- /* ends loop over j */ 

} /* ends loop over i */ 



} /* ends xor_image */ 
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* nand_ image ( . . . 

* This function performs the Boolean NAND 

* operation. The output image = ini NAND in2. 

* This works for 0 non-zero images. If both 

* ini and in2 are non-zero, the output = 0. 

* Otherwise, the output = value. 

* 

************************************************/ 



nand_image (the_image , out_image, 
value, rows, cols) 
short **the_image, 

** out _ image, value; 
long cols, rows; 

{ 

int i , j ; 



f or (i=0 ; i<rows; i++){ 

if ( (i°/.10) == 0) printf (" °/,d" , i) ; 
for(j=0; j<cols; j++){ 

if ( the_image [i] [j] != 0 && 

out_image [i] [j] != 0) 
out_image [i] [j] = 0; 

else 



out_image [i] [j] = value; 
> /* ends loop over j */ 

} /* ends loop over i */ 



} /* ends nand_image */ 



/*********************************************** 

* 

* nor_image( . . . 

* 

* This function performs the Boolean NOR 
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* operation. The output image = ini NOR in2. 

* This works for 0 non-zero images. If niether 

* ini nor in2 are non-zero, the output = value. 

* That is , if both ini and in2 are zero , the 

* output = value . 



nor_image(the_image, out_image, 
value, rows, cols) 
short **the_image, 

** out _ image, value; 
long cols , rows ; 

■c 

int i , j ; 

for(i=0; i<rows; i++){ 

if ( (i°/,10) == 0) printf (" 7,d" , i) ; 
for(j=0; j<cols; j++){ 

if ( the_image [i] [j] == 0 && 

out_image [i] [j] == 0) 
out_image [i] [j] = value; 

else 

out_image [i] [j] = 0; 

)- /* ends loop over j */ 

} /* ends loop over i */ 

} /* ends nor_image */ 



/*********************************************** 

* not_image( . . . 

* This function will complement the values 

* of the input image and put them into the 

* output image. It will complement using a 

* 0-value scheme where value is one of the 

* input parameters . 

* 

************************************************/ 
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not_image(the_image, out_image, 
value, rows, cols) 
short **the_image, 

** out _ image, 
value ; 

long cols, rows; 

{ 

int i , j ; 

for(i=0; i<rows; i++) 
for(j=0; j<cols; j++) 

out_image [i] [j] = value; 

for(i=0; i<rows; i++){ 

if ( (i°/.10) == 0) printf (" °/.d", i) ; 
for(j=0; j<cols; j++){ 

if (the_image [i] [j] == value) 
out_image [i] [j] = 0; 

> /* ends loop over j */ 

} /* ends loop over i */ 

} /* ends not_image */ 



Listing 12.1 - The Boolean Subroutines 



/sit******************************************** 

* 

* file boolean. c 

* 

* Functions: This file contains 

* main 

* 

* Purpose : 

* This file contains the main calling 

* routine that calls the Boolean 

* operations. 

* 

* External Calls: 

* imageio.c - create_image_f ile 

* read_image_array 
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* 



write_image_array 
get_image_size 
allocate_image_array 
free_image_array 
boole.c - and_image 
or_image 
xor_ image 
nand_ image 
nor _ image 
not _ image 

Modifications: 

3 March 1993 - created 
22 August 1998 - modified to work on 
entire images at once. 

19 September 1998 - modified to work with 
all I 0 routines in imageio.c. 



* 

sit********************************************/ 



#include "cips.h" 



short **the_image ; 
short **out_image ; 

main ( ar gc , ar gv ) 
int argc; 
char *argv[] ; 

■c 



char namel [80] , name2[80], name3 [80] , type [80] ; 

long length, width; 

short value ; 

/**************************************** 



* Interpret the command line parameters . 

* 

*****************************************/ 



if (argc < 5){ 
printf ( 

"\n\nNot enough parameters:" 
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"\n" 

"\n usage: boolean in-filel in-file2 out-file 
"type [value] " 

"\n or " 

"\n boolean in-filel out-file not value 

"\n" 

"\n recall type: and or xor nand nor not" 

"\n You must specify a value for 

"nand & nor" 

"\n") ; 
exit (0) ; 

} 

if (strcmpC'not" , argv[3]) == 0){ 
strcpy (namel , argv[l]); 
strcpy (name2 , argv [2] ) ; 
strcpy (type , argv [3] ) ; 
value = atoi(argv[4] ) ; 

> /* ends if not */ 

else{ 

strcpy (namel , argv[l]); 
strcpy (name2 , argv [2] ) ; 
strcpy (name3 , argv [3] ) ; 
strcpy (type , argv [4] ) ; 
value = atoi(argv[5] ) ; 

} /* ends else all other types */ 

if (does_not_exist (namel) ) { 
printf ("\nERR0R input file °/ 0 s does not exist", 
namel) ; 

exit (0) ; 

} 



/sit*************************************** 

* 

* Process the NOT case (1 input file, 

* 1 output file) . 

* 

* Else process the other cases. 

* 

*****************************************/ 
/* NOT CASE */ 



if (strcmpC'not" , type) == 0){ 
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get_image_size(namel , felength, fewidth); 
the_image = allocate_image_array (length, width); 
out_image = allocate_image_array (length, width); 
create_image_f ile (namel , name2) ; 
read_image_array (namel , the_image) ; 
not_image(the_image, out_image, value, 
length, width); 

write_image_array(name2, out_image) ; 

} /* ends if not case */ 



/* NOW ALL OTHER CASES */ 
else{ 

if (does_not_exist (name2) ) { 
printf ("\nERR0R input file °/,s does not exist", 
name2) ; 

exit (0) ; 

> 

if (are_not_same_size (namel , name2) ) { 
printf ( 

"\n Images °/ 0 s and °/ 0 s are not the same size", 
namel , name2) ; 
exit(l) ; 

)- /* ends if sizes not the sarnie */ 

get_image_size (namel , felength, fewidth); 
the_image = allocate_image_array (length, width) ; 
out_image = allocate_image_array (length, width) ; 
create_image_f ile (namel , name3) ; 
read_image_array (namel , the_image) ; 
read_image_array(name2, out_image) ; 



/* AND */ 

if (strcmpO'and" , type) == 0){ 

and_image(the_image, out_image, 
length, 
width) ; 

> /* ends AND operation */ 



/* OR */ 
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if (strcmpO'or" , type) == 0){ 

or_image(the_image, out_image, 
length, 
width) ; 

1 /* ends OR operation */ 

/* XOR */ 

if (strcmpO'xor" , type) == 0){ 

xor_image (the_image , out_image, 
length , 
width) ; 

> /* ends XOR operation */ 

/* NAND */ 

if (strcmpO'nand" , type) == 0)1 

nand_image (the_image , out_image, 
value , 
length, 
width) ; 

> /* ends NAND operation */ 

/* NOR */ 

if (strcmpO'nor" , type) == 0){ 

nor_image (the_image , out_image, 
value , 
length , 
width) ; 

} /* ends NOR operation */ 

write_image_array(name3, out_image) ; 

} /* ends else all other cases (not not) */ 



f ree_image_array(out_image , length) ; 
f ree_image_array(the_image , length) ; 



} /* ends main */ 



Listing 12.2 - The boolean Program 
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/************************************************ 
* file ilabel.c 



* Functions: This file contains 

* main 

* 

* Purpose : 

* This program writes simple block letters 

* the an image file. You can use these 

* as labels for other images. 



* External Calls : 

* imageio.c - create_image_f ile 

* read_image_array 

* write_image_array 

* get_image_size 

* allocate_image_array 

* free_image_array 

* 

* Modifications: 

* 21 May 1993 - created 

* 22 August 1998 - modified to work on entire 

* images at once. 

* 19 September 1998 - modified to work with 

* all I 0 routines in imageio.c. 



*************************************************/ 



#include "cips.h" 

#define R 9 

#define C 7 

#def ine C0UNTER_LIMIT 8 

#def ine IE_START 7 

#def ine VAL 200 

short **image; 

/****************************** 

* 

* Define all the 9x7 arrays 

* that contain the characters . 
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* 



short 


aperiod[R] [C] = 


{ 














{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


VAL.VAL, 


0, 


0, 


0}, 




{ 


0, 


0 


VAL.VAL, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}>; 


short 


acomma[R] [C] = 
















{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


VAL.VAL, 


0, 


0, 


0}, 




{ 


0, 


0 


VAL.VAL, 


0, 


0, 


0}, 




{ 


0, 


0 


0,VAL, 


0, 


0, 


0}}; 


short 


aexclam[R] [C] = 


{ 














{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0,VAL, 


0, 


0, 


0}, 




{ 


0, 


0 


0,VAL, 


0, 


0, 


0}, 




{ 


0, 


0 


0,VAL, 


0, 


0, 


0}, 




{ 


0, 


0 


0,VAL, 


0, 


0, 


0}, 




{ 


0, 


0 


0,VAL, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0,VAL, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}>; 


short 


xx [R] [C] = { { 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}, 




{ 


0, 


0 


0, 0, 


0, 


0, 


0}}; 
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short aa[R] [C] 



short ab [R] [C] 



short ac [R] [C] 



short ad[R] [C] 



short ae [R] [C] 



{ { 


0 


0, 


0 


0, 


0 


0, 


0}, 


{ 


0 


0, 


0 


VAL, 


0 


0, 


o>, 


{ 


0 


0, 


VAL 


0, 


VAL 


0, 


o>, 


{ 


0 


VAL, 


0 


0, 


0 


,VAL, 


o>. 


{ 


0 


VAL, VAL 


VAL, 


VAL 


,VAL, 


0>, 


I 


0 


VAL, 


0 


0, 


0 


,VAL, 


0>, 


{ 


0 


VAL, 


0 


0, 


0 


,VAL, 


0}, 


{ 


0 


VAL, 


0 


0, 


0 


,VAL, 


0}, 


I 


0 


0, 


0 


0, 


0 


0, 


0}> 


{ { 


0 


0, 


0 


0, 


0 


0, 


0}, 


■c 


0 


VAL, VAL 


VAL, 


VAL 


0, 


0>, 


■c 


0 


VAL, 


0 


0, 


0 


,VAL, 


0}, 




0 


VAL, 


0 


0, 


0 


,VAL, 


0>, 


■c 


0 


VAL, VAL 


VAL, 


VAL 


0, 


0>, 




0 


VAL, 


0 


0, 


0 


,VAL, 


0>, 


■c 


0 


VAL, 


0 


0, 


0 


,VAL, 


0}, 


■c 


0 


VAL, 


VAL 


VAL, 


VAL 


0, 


0}, 


■c 


0 


0, 


0 


0, 


0 


0, 


0}> 


{ { 


0 


0, 


0 


0, 


0 


0, 


0}, 


I 


0 


0, 


VAL 


VAL, 


VAL 


0, 


0}, 


I 


0 


VAL, 


0 


0, 


0 


,VAL, 


0>, 


I 


0 


VAL, 


0 


0, 


0 


0, 


0>, 


I 


0 


VAL, 


0 


0, 


0 


0, 


0>, 


I 


0 


VAL, 


0 


0, 


0 


0, 


0>, 


I 


0 


VAL, 


0 


0, 


0 


,VAL, 


0>, 


I 


0 


0, 


VAL 


VAL, 


VAL 


0, 


0}, 


I 


0 


0, 


0 


0, 


0 


0, 


0}> 


{ { 


0 


0, 


0 


0, 


0 


0, 


0}, 




0 


VAL, 


VAL 


VAL, 


VAL 


0, 


0}, 


■c 


0 


VAL, 


0 


0, 


0 


,VAL, 


0>, 




0 


VAL, 


0 


0, 


0 


,VAL, 


0>, 


■c 


0 


VAL, 


0 


0, 


0 


,VAL, 


0>, 




0 


VAL, 


0 


0, 


0 


,VAL, 


o>. 


■c 


0 


VAL, 


0 


0, 


0 


,VAL, 


0>, 


■c 


0 


VAL, VAL 


VAL, 


VAL 


0, 


0>, 


■c 


0 


0, 


0 


0, 


0 


0, 


0}> 


{ { 


0 


0, 


0 


0, 


0 


0, 


0}, 


■c 


0 


VAL, 


VAL 


VAL, 


VAL 


,VAL, 


0}, 


■c 


0 


VAL, 


0 


0, 


0 


0, 


0}, 


■c 


0 


VAL, 


0 


0, 


0 


0, 


0>, 
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{ 


0 , VAL , VAL , VAL , VAL , 0, 


0}, 




{ 


0 , VAL , 0, 0, 0, 0, 


0}, 




{ 


0 , VAL , 0, 0, 0, 0, 


0}, 




{ 


0, VAL, VAL, VAL, VAL, VAL, 


0}, 




{ 


o 

o 

o 

o 

o 

o 


0}}; 


short 


af [R] [C] = { { 


o 

o 

o 

o 

o 

o 


0}, 




{ 


0, VAL, VAL, VAL, VAL, VAL, 


0}, 




{ 


0 , VAL , 0, 0, 0, 0, 


0}, 




{ 


0 , VAL , 0, 0, 0, 0, 


0}, 




{ 


0, VAL, VAL, VAL, VAL, 0, 


0}, 




{ 


0 , VAL , 0, 0, 0, 0, 


0}, 




{ 


0 , VAL , 0, 0, 0, 0, 


0}, 




{ 


0 , VAL , 0, 0, 0, 0, 


0}, 




{ 


O 

o 

o 

o 

o 

o 


0}}; 


short 


ag [R] [C] = { { 


o 

o 

o 

o 

o 

o 


0}, 




{ 


0, 0, VAL, VAL, VAL, 0, 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


0 , VAL , 0, 0, 0, 0, 


0}, 




{ 


0 , VAL , 0, 0, VAL, VAL, 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


0, 0, VAL, VAL, VAL, VAL, 


0}, 




{ 


o 

o 

o 

o 

o 

o 


0}>; 


short 


ah [R] [C] = { { 


o 

o 

o 

o 

o 

o 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


0, VAL, VAL, VAL, VAL, VAL, 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


O 

o 

o 

o 

o 

o 


0}>; 


short 


ai [R] [C] = { { 


o 

o 

o 

o 

o 

o 


0}, 




{ 


0, VAL, VAL, VAL, VAL, VAL, 


0}, 




{ 


0, 0, 0,VAL, 0, 0, 


0}, 




{ 


0, 0, 0,VAL, 0, 0, 


0}, 




{ 


0, 0, 0,VAL, 0, 0, 


0}, 




{ 


0, 0, 0,VAL, 0, 0, 


0}, 




{ 


0, 0, 0,VAL, 0, 0, 


0}, 




{ 


0, VAL, VAL, VAL, VAL, VAL, 


0}, 




{ 


o 

o 

o 

o 

o 

o 


0}}; 
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short aj [R] [C] = { { 


o 

o 


o 

o 


o 

o 


0}, 




{ 


0,VAL, 


VAL, VAL, 


VAL, VAL, 


0>, 




■c 


o 

o 


0,VAL, 


o 

o 


0>, 






o 

o 


0,VAL, 


o 

o 


0>, 




■c 


o 

o 


0,VAL, 


o 

o 


0>, 




■c 


0,VAL, 


0,VAL, 


o 

o 


0>, 




{ 


0,VAL, 


0 , VAL , 


o 

o 


0}, 




■c 


o 

o 


VAL, 0, 


o 

o 


0}, 




■c 


o 

o 


o 

o 


o 

o 


0}> 


short 


ak[R] [Cl = { { 


o 

o 


o 

o 


o 

o 


0}, 






0,VAL, 


o 

o 


0,VAL, 


0>, 




I 


0,VAL, 


o 

o 


VAL, 0, 


0J, 




{ 


0,VAL, 


0,VAL, 


o 

o 


0>, 




I 


0,VAL, 


VAL, 0, 


o 

o 


0>, 




{ 


0,VAL, 


0,VAL, 


o 

o 


0>, 




I 


0,VAL, 


o 

o 


VAL, 0, 


0}, 




I 


0,VAL, 


o 

o 


0,VAL, 


0}, 




I 


o 

o 


o 

o 


o 

o 


0}> 


short 


al[R] [C] = { { 


o 

o 


o 

o 


o 

o 


0}, 




I 


0,VAL, 


o 

o 


o 

o 


0}, 




I 


0,VAL, 


o 

o 


o 

o 


0>, 






0,VAL, 


o 

o 


o 

o 


0>, 






0,VAL, 


o 

o 


o 

o 


0>, 




I 


0,VAL, 


o 

o 


o 

o 


0>, 




I 


0,VAL, 


o 

o 


o 

o 


0>, 




{ 


0,VAL, 


VAL, VAL, 


VAL, VAL, 


0}, 




I 


o 

o 


o 

o 


o 

o 


0}> 


short 


am[R] [C] = { { 


o 

o 


o 

o 


o 

o 


0}, 






0,VAL, 


o 

o 


0,VAL, 


0}, 




i 


0,VAL, 


VAL, 0, 


VAL, VAL, 


0>, 




{ 


0,VAL, 


0,VAL, 


0,VAL, 


0>, 




I 


0,VAL, 


0,VAL, 


0,VAL, 


0>, 




I 


0,VAL, 


0,VAL, 


0,VAL, 


0>, 




I 


0,VAL, 


0,VAL, 


0,VAL, 


0>, 




I 


0,VAL, 


0,VAL, 


0,VAL, 


0>, 




I 


o 

o 


o 

o 


o 

o 


0}> 


short 


an[R] [C] = { { 


o 

o 


o 

o 


o 

o 


0}, 




I 


0,VAL, 


o 

o 


0,VAL, 


0}, 




{ 


0,VAL, 


VAL, 0, 


0,VAL, 


0}, 




I 


0,VAL, 


0,VAL, 


0,VAL, 


0>, 




F.12. CODE LISTINGS FOR CHAPTER 12 



607 





{ 


0,VAL 


0,VAL, 0,VAL, 


0}, 




{ 


0,VAL 


0, 0,VAL,VAL, 


0}, 




{ 


0,VAL 


0, 0,VAL,VAL, 


0}, 




{ 


0,VAL 


0, 0, 0,VAL, 


0}, 




{ 


o 

o 


o 

o 

o 

o 


0}}; 


short 


ao[R] [C] = { { 


o 

o 


o 

o 

o 

o 


0}, 




{ 


o 

o 


VAL, VAL, VAL, 0, 


0}, 




{ 


0,VAL 


0, 0, 0,VAL, 


0}, 




{ 


0,VAL 


0, 0, 0,VAL, 


0}, 




{ 


0,VAL 


0, 0, 0,VAL, 


0}, 




{ 


0,VAL 


0, 0, 0,VAL, 


0}, 




{ 


0,VAL 


0, 0, 0,VAL, 


0}, 




{ 


o 

o 


VAL,VAL,VAL, 0, 


0}, 




{ 


o 

o 


o 

o 

o 

o 


0}}; 


short 


ap [R] [C] = { { 


o 

o 


o 

o 

o 

o 


0}, 




{ 


0,VAL 


VAL, VAL, VAL, 0, 


0}, 




{ 


0,VAL 


0, 0, 0,VAL, 


0}, 




{ 


0,VAL 


0, 0, 0,VAL, 


0}, 




{ 


0,VAL 


VAL,VAL,VAL, 0, 


0}, 




{ 


0,VAL 


o 

o 

o 

o 


0}, 




{ 


0,VAL 


o 

o 

o 

o 


0}, 




{ 


0,VAL 


o 

o 

o 

o 


0}, 




{ 


o 

o 


o 

o 

o 

o 


0}>; 


short 


aq [R] [C] = { { 


o 

o 


o 

o 

o 

o 


0}, 




{ 


o 

o 


VAL,VAL,VAL, 0, 


0}, 




{ 


0,VAL 


0, 0, 0,VAL, 


0}, 




{ 


0,VAL 


0, 0, 0,VAL, 


0}, 




{ 


0,VAL 


0, 0, 0,VAL, 


0}, 




{ 


0,VAL 


0,VAL, 0,VAL, 


0}, 




{ 


0,VAL 


0, 0,VAL,VAL, 


0}, 




{ 


o 

o 


VAL , VAL , VAL , VAL , 


0}, 




{ 


o 

o 


o 

o 

o 

o 


0}>; 


short 


ar [R] [C] = { { 


o 

o 


o 

o 

o 

o 


0}, 




{ 


0,VAL 


o 

_r 

< 

s 

< 


0}, 




{ 


0,VAL 


0, 0, 0,VAL, 


0}, 




{ 


0,VAL 


0, 0, 0,VAL, 


0}, 




{ 


0,VAL 


VAL, VAL, VAL, 0, 


0}, 




{ 


0,VAL 


0, 0, 0,VAL, 


0}, 




{ 


0,VAL 


0, 0, 0,VAL, 


0}, 




{ 


0,VAL 


0, 0, 0,VAL, 


0}, 




{ 


o 

o 


O 

o 

o 

o 


0}}; 
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short as [R] [C] 



short at [R] [C] 



short au[R] [C] 



short av[R] [C] 



short aw[R] [C] 



{ { 


o 

o 


o 

o 


o 

o 


0 }, 


{ 


o 

o 


VAL, VAL, 


VAL, 0, 


0>, 


{ 


0,VAL, 


o 

o 


0,VAL, 


0>, 


{ 


0,VAL, 


o 

o 


o 

o 


0>, 


{ 


o 

o 


VAL, VAL, 


VAL, 0, 


0>, 


{ 


o 

o 


o 

o 


0,VAL, 


0>, 


I 


0,VAL, 


o 

o 


0,VAL, 


0>, 


{ 


o 

O 


VAL, VAL, 


VAL, 0, 


0 }, 


■c 


o 

O 


o 

o 


o 

o 


0}> 


{ { 


o 

O 


o 

o 


o 

o 


0 }, 


■c 


0,VAL, 


VAL, VAL, 


VAL, VAL, 


0 }, 




o 

o 


0,VAL, 


o 

o 


0>, 


■c 


o 

o 


0,VAL, 


o 

o 


0>, 


■c 


o 

o 


0,VAL, 


o 

o 


0>, 


■c 


o 

o 


0,VAL, 


o 

o 


0>, 




o 

o 


0,VAL, 


o 

o 


0>, 


■c 


o 

o 


0 , VAL , 


o 

o 


0 }, 


■c 


o 

o 


o 

o 


o 

o 


0}> 


{ I 


o 

o 


o 

o 


o 

o 


0}, 




0,VAL, 


o 

o 


0,VAL, 


0}, 


■c 


0,VAL, 


o 

o 


0,VAL, 


0}, 




0,VAL, 


o 

o 


0,VAL, 


o>, 


■c 


0,VAL, 


o 

o 


0,VAL, 


0>, 


■c 


0,VAL, 


o 

o 


0,VAL, 


0>, 


I 


0,VAL, 


o 

o 


0,VAL, 


0>, 


I 


o 

o 


VAL, VAL, 


VAL, 0, 


0>, 


{ 


o 

o 


o 

o 


o 

o 


0}> 


{ { 


o 

o 


o 

o 


o 

o 


0}, 




0,VAL, 


o 

o 


0,VAL, 


0}, 


■c 


0,VAL, 


o 

o 


0,VAL, 


0}, 




0,VAL, 


o 

o 


0,VAL, 


0>, 


I 


o 

o 


VAL, 0, 


VAL, 0, 


0>, 


I 


o 

o 


VAL, 0, 


VAL, 0, 


0>, 


I 


o 

o 


VAL, 0, 


VAL, 0, 


0>, 


I 


o 

o 


0,VAL, 


o 

o 


0>, 


I 


o 

o 


o 

o 


o 

o 


o» 


{ I 


o 

o 


o 

o 


o 

o 


0 }, 




0,VAL, 


o 

o 


0,VAL, 


0 }, 




0,VAL, 


0 , VAL , 


0,VAL, 


0 }, 


■c 


0,VAL, 


0 , VAL , 


0,VAL, 


0 }, 


■c 


0,VAL, 


0,VAL, 


0,VAL, 


0>, 
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{ 


0, 0,VAL,VAL,VAL, 0, 


0}, 




{ 


0, 0,VAL,VAL,VAL, 0, 


0}, 




{ 


0, 0,VAL, 0,VAL, 0, 


0}, 




{ 


o 

o 

o 

o 

o 

o 


0}>; 


short 


ax [R] [C] = { { 


o 

o 

o 

o 

o 

o 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


0, 0 , VAL , 0,VAL, 0, 


0}, 




{ 


0, 0, 0,VAL, 0, 0, 


0}, 




{ 


0, 0 , VAL , 0,VAL, 0, 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


O 

o 

o 

o 

o 

o 


0}>; 


short 


ay [R] [C] = { { 


o 

o 

o 

o 

o 

o 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


0, 0 , VAL , 0,VAL, 0, 


0}, 




{ 


0, 0, 0,VAL, 0, 0, 


0}, 




{ 


0, 0, 0,VAL, 0, 0, 


0}, 




{ 


0, 0, 0,VAL, 0, 0, 


0}, 




{ 


0, 0, 0,VAL, 0, 0, 


0}, 




{ 


O 

o 

o 

o 

o 

o 


0}>; 


short 


az [R] [C] = { { 


o 

o 

o 

o 

o 

o 


0}, 




{ 


0, VAL, VAL, VAL, VAL, VAL, 


0}, 




{ 


0, 0, 0, 0, 0,VAL, 


0}, 




{ 


0, 0, 0, 0,VAL, 0, 


0}, 




{ 


0, 0, 0,VAL, 0, 0, 


0}, 




{ 


0, 0 , VAL , 0, 0, 0, 


0}, 




{ 


0 , VAL , 0, 0, 0, 0, 


0}, 




{ 


0, VAL, VAL, VAL, VAL, VAL, 


0}, 




{ 


o 

o 

o 

o 

o 

o 


0}>; 


short 


al [R] [C] = { { 


o 

o 

o 

o 

o 

o 


0}, 




{ 


0, 0, 0,VAL, 0, 0, 


0}, 




{ 


0, 0, VAL, VAL, 0, 0, 


0}, 




{ 


0 , VAL , 0,VAL, 0, 0, 


0}, 




{ 


0, 0, 0,VAL, 0, 0, 


0}, 




{ 


0, 0, 0,VAL, 0, 0, 


0}, 




{ 


0, 0, 0,VAL, 0, 0, 


0}, 




{ 


0, VAL, VAL, VAL, VAL, VAL, 


0}, 




{ 


o 

o 

o 

o 

o 

o 


0}}; 
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short 


a2[R] [C] = { { 


o 

o 

o 

o 

o 

o 


0}, 




■c 


0, 0,VAL,VAL,VAL, 0, 


o>, 




■c 


0,VAL, 0, 0, 0,VAL, 


o>, 




■c 


0, 0, 0, 0,VAL, 0, 


o>, 






0, 0, 0,VAL, 0, 0, 


03- , 




{ 


0, 0 , VAL , 0, 0, 0, 


o>, 




I 


0,VAL, 0, 0, 0, 0, 


03, 




{ 


0 , VAL , VAL , VAL , VAL , VAL , 


03, 




I 


o 

o 

o 

o 

o 

o 


033 


short 


a3[R] [C] = { { 


o 

o 

o 

o 

o 

o 


03, 




■c 


0, 0, VAL, VAL, VAL, 0, 


03, 




■c 


0,VAL, 0, 0, 0,VAL, 


03, 






0, 0, 0, 0, 0,VAL, 


03, 




■c 


0, 0, VAL, VAL, VAL, 0, 


03, 




■c 


0, 0, 0, 0, 0,VAL, 


03, 






0,VAL, 0, 0, 0,VAL, 


03, 




■c 


0, 0, VAL, VAL, VAL, 0, 


03, 




■c 


o 

o 

o 

o 

o 

o 


033 


short 


a4[R] [C] = { { 


o 

o 

o 

o 

o 

o 


03, 




1 


0,VAL, 0 , VAL , 0, 0, 


03, 




■c 


0,VAL, 0 , VAL , 0, 0, 


03, 






0,VAL, 0,VAL, 0, 0, 


03, 




■c 


0, VAL, VAL, VAL, VAL, VAL, 


03, 




■c 


0, 0, 0,VAL, 0, 0, 


03, 




I 


0, 0, 0,VAL, 0, 0, 


03, 




I 


0, 0, 0,VAL, 0, 0, 


03, 




■c 


o 

o 

o 

o 

o 

o 


033 


short 


a5[R] [C] = { { 


o 

o 

o 

o 

o 

o 


03, 




I 


0, VAL, VAL, VAL, VAL, VAL, 


03, 




■c 


0,VAL, 0, 0, 0, 0, 


03, 




1 


0,VAL, 0, 0, 0, 0, 


03, 




■c 


0, VAL, VAL, VAL, VAL, 0, 


03, 






0, 0, 0, 0, 0,VAL, 


03, 




■c 


0,VAL, 0, 0, 0,VAL, 


03, 




■c 


0, 0, VAL, VAL, VAL, 0, 


03, 






o 

o 

o 

o 

o 

o 


033 


short 


a6[R] [C] = { { 


o 

o 

o 

o 

o 

o 


03, 




1 


0, 0, VAL, VAL, VAL, 0, 


03, 




■c 


0,VAL, 0, 0, 0,VAL, 


03, 




■c 


0,VAL, 0, 0, 0, 0, 


03, 




■c 


0, VAL, VAL, VAL, VAL, 0, 


03, 
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{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


01, 




{ 


0, 0, VAL, VAL, VAL, 0, 


01, 




{ 


o 

o 

o 

o 

o 

o 


0}>; 


short 


a7[R] [C] = { { 


o 

o 

o 

o 

o 

o 


0}, 




{ 


0, VAL, VAL, VAL, VAL, VAL, 


0}, 




{ 


0, 0, 0, 0, 0,VAL, 


0}, 




{ 


0, 0, 0, 0, 0,VAL, 


0}, 




{ 


0, 0, 0, 0,VAL, 0, 


0}, 




{ 


0, 0, 0,VAL, 0, 0, 


0}, 




{ 


0, 0 , VAL , 0, 0, 0, 


0}, 




{ 


0 , VAL , 0, 0, 0, 0, 


0}, 




{ 


O 

o 

o 

o 

o 

o 


0}>; 


short 


a8[R] [C] = { { 


o 

o 

o 

o 

o 

o 


01, 




{ 


0, 0, VAL, VAL, VAL, 0, 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


0, 0, VAL, VAL, VAL, 0, 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


0 , VAL , 0, 0, 0,VAL, 


0}, 




{ 


0, 0, VAL, VAL, VAL, 0, 


0}, 




{ 


o 

o 

o 

o 

o 

o 


0}>; 


short 


a9[R] [C] = { { 


o 

o 

o 

o 

o 

o 


01, 




{ 


0, 0, VAL, VAL, VAL, 0, 


01, 




{ 


0 , VAL , 0, 0, 0,VAL, 


01, 




{ 


0 , VAL , 0, 0, 0,VAL, 


01, 




{ 


0, 0, VAL, VAL, VAL, VAL, 


01, 




{ 


0, 0, 0, 0, 0,VAL, 


01, 




{ 


0, 0, 0, 0, 0,VAL, 


01, 




{ 


0, 0, 0, 0, 0,VAL, 


0}, 




{ 


O 

o 

o 

o 

o 

o 


0}>; 


short 


aO [R] [C] = { { 


o 

o 

o 

o 

o 

o 


01, 




{ 


0, 0, VAL, VAL, VAL, 0, 


01, 




{ 


0 , VAL , 0, 0, VAL, VAL, 


01, 




{ 


0 , VAL , 0, 0, VAL, VAL, 


01, 




{ 


0 , VAL , 0,VAL, 0,VAL, 


01, 




{ 


0 , VAL , 0,VAL, 0,VAL, 


01, 




{ 


0, VAL, VAL, 0, 0,VAL, 


01, 




{ 


0, 0, VAL, VAL, VAL, 0, 


01, 




{ 


o 

o 

o 

o 

o 

o 


0}}; 
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main ( ar gc , ar gv ) 
int argc ; 
char *argv[] ; 

{ 

int 1=1, w=l; 

int counter=0, i, j, il, ie=7, 11, le; 

long length, width; 

if (argc < 5){ 

printf("\n usage: ilabel file-name il ie text" 
"\n the file-name image must already exist"); 
exit (0) ; 

} 



* Ensure the file exists. 

* Allocate an image array and read 

* the image . 

****************************************/ 
if (does_not_exist (argv [1] ) ) { 

printf ("\nFile °/,s does not exist \nCreate it", argv[l]); 
exit (0) ; 

} /* ends if does not exist */ 

else{ /* else it does exist */ 

get_image_size(argv[l] , &length, &width) ; 
image = allocate_image_array (length, width); 
read_image_array(argv[l] , image) ; 

} /* ends else it does exist */ 

il = atoi (argv [2] ) ; 
ie = atoi (argv [3] ) ; 

/****************************** 

* Loop through the text 

* arguments and place the 

* letter arrays into the 

* image . 

* 

*******************************/ 
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printf ("\n") ; 
for(i=4; i<argc; i++){ 

for(j=0; j<(strlen(argv[i] )) ; j++){ 

argv [i] [j] = tolower(argv[i] [j] ) ; 

printf ("%c" , argv [i] [j] ) ; 
printf ("°/.d °/,d\n" , il , ie) ; 
if (argv [i] [j] == ’a’) 

copy_array_into_image(aa, image, il, ie) ; 
if (argv [i] [j] == ’b>) 

copy_array_into_image (ab, image, il, ie) ; 
if (argv [i] [j] == ’o’) 

copy_array_into_image(ac, image, il, ie) ; 
if (argv [i] [j] == ’d’) 

copy_array_into_image (ad, image, il, ie) ; 
if (argv [i] [j] == ’e’) 

copy_array_into_image(ae, image, il, ie) ; 
if (argv [i] [j] == ’f’) 

copy_array_into_image(af , image, il, ie) ; 
if (argv [i] [j] == ’g’) 

copy_array_into_image(ag, image, il, ie) ; 
if (argv [i] [j] == ’h’) 

copy_array_into_image (all, image, il, ie) ; 
if (argv [i] [j] == >i’) 

copy_array_into_image (ai , image, il, ie) ; 
if (argv [i] [j] == ’j’) 

copy_array_into_image(aj , image, il, ie) ; 
if (argv [i] [j] == ’k’) 

copy_array_into_image(ak, image, il, ie) ; 
if (argv [i] [j] == ’l’) 

copy_array_into_image(al, image, il, ie) ; 
if (argv [i] [j] == ’m') 

copy_array_into_image (am, image, il, ie) ; 
if (argv[i] [j] == ’n’3 

copy_array_into_image (an, image, il, ie) ; 
if (argv [i] [j] == ’o’) 

copy_array_into_image(ao, image, il, ie) ; 
if (argv [i] [j] == ’p’) 

copy_array_into_image(ap, image, il, ie) ; 
if (argv [i] [j] == ’q’ ) 

copy_array_into_image(aq, image, il, ie) ; 
if (argv [i] [j] == ’r’) 

copy_array_into_image (ar , image, il, ie) ; 




614 



APPENDIX F. SOURCE CODE LISTINGS 



if (argv [i] [j] == 's’) 

copy_array_into_image (as , image, il, ie) : 
if (argv[i] [j] == 't’) 

copy_array_into_image (at , image, il, ie) : 
if (argv[i] [j] == ’u’) 

copy_array_into_image (au, image, il, ie) : 
if (argv[i] [j] == ’v’) 

copy_array_into_image(av, image, il, ie) : 
if (argv[i] [j] == ’w’) 

copy_array_into_image(aw, image, il, ie) : 
if (argv [i] [j] == >x>) 

copy_array_into_image(ax, image, il, ie) : 
if (argv [i] [j] == ’y’) 

copy_array_into_image (ay , image, il, ie) : 
if (argv [i] [j] == ’ z ’) 

copy_array_into_image(az, image, il, ie) : 
if (argv [i] [j] == ’ 1 ’ ) 

copy_array_into_image(al , image, il, ie) : 
if (argv [i] [j] == ’2’) 

copy_array_into_image(a2, image, il, ie) : 
if (argv [i] [j] == ’3’) 

copy_array_into_image(a3, image, il, ie) : 
if (argv [i] [j] == ’4’) 

copy_array_into_image (a4, image, il, ie) : 
if (argv [i] [j] == '5’) 

copy_array_into_image(a5, image, il, ie) : 
if (argv [i] [j] == ’S’) 

copy_array_into_image(a6, image, il, ie) : 
if (argv [i] [j] == ’7’) 

copy_array_into_image(a7, image, il, ie) : 
if (argv [i] [j] == >8’) 

copy_array_into_image(a8, image, il, ie) : 
if (argv [i] [j] == ’9’) 

copy_array_into_image(a9, image, il, ie) : 
if (argv [i] [j] == ’O’) 

copy_array_into_image(aO, image, il, ie) : 
if (argv [i] [j] == ’ . ’ ) 

copy_array_into_image (aperiod, image , 
il, ie) ; 

if (argv [i] [j] == 

copy_array_into_image(acomma, image, 
il, ie) ; 

if (argv [i] [j] == >!’) 

copy_array_into_image(aexclam, image, 
il, ie) ; 
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ie = ie + C; 

I /* ends loop over j letters in argument */ 

/* Put a space between words */ 
copy_array_into_image(xx, image, il, ie) ; 
ie = ie + C; 

} /* ends loop over i arguments */ 

write_image_array (argv [1] , image) ; 
free_image_array (image , length); 

} /* ends main */ 



copy_array_into_image(a, the_image, il, ie) 
short a[R] [C] , **the_image; 
int il, ie; 

{ 

int i , j ; 

f or (i=0 ; i<R; i++) 
for(j=0; j<C; j++) 

the_image [il+i] [ie+j] = a[i] [j] ; 

> /* ends copy_array_into_image */ 



Listing 12.3 - The ilabel Program 



file overlay. c 
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* Functions: This file contains 

* non_zero_overlay 

* zero_overlay 

* greater_overlay 

* less_overlay 

* average_overlay 

* Purpose : 

* These functions implement the 

* functions that overlay one image 

* on top of another image. 

* 

* External Calls : 

* none 

* Modifications: 

* 6 March 1993 - created 

* 22 August 1998 - modified to work on 

* entire images at once. 

* 

*********************************************/ 



#include "cips.h" 



/********************************************** 

* 

* non_zero_overlay( . . . 

* 

* This function overlays ini on top of in2 

* and writes the result to the output image. 

* It writes any non-zero pixel from ini on top 

* of in2 . 



non_zero_overlay (the_image , out_image , 
rows, cols) 
short **the_image, 

** out _ image; 
long cols, rows; 

1 



int 



i. j; 
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for(i=0; i<rows; i++){ 

if ( (i°/.10) == 0) printf (" 7,d" , i) ; 
for(j=0; j<cols; j++){ 

if (the_image [i] [j] != 0) 

out_image[i] [j] = the_image[i] [j] ; 
} /* ends loop over j */ 

> /* ends loop over i */ 

} /* ends non_zero_overlay */ 



/********************************************** 

* zero_overlay( . . . 

* 

* This function overlays ini on top of in2 

* and writes the result to the output image. 

* It writes any zero pixel from ini on top 

* of in2 . 

***********************************************/ 

zero_overlay (the_image , out_image , 
rows, cols) 
short **the_image, 

** out _ image ; 
long cols, rows; 

{ 

int i , j ; 



for(i=0; i<rows; i++){ 

if ( (i'/olO) == 0) printf (" 7,d" , i) ; 
for(j=0; j<cols; j++){ 

if (the_image [i] [j] == 0) 

out_image[i] [j] = the_image[i] [j] ; 
> /* ends loop over j */ 

} /* ends loop over i */ 



} /* ends zero_overlay */ 
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/********************************************** 

* greater_overlay ( . . . 

* This function overlays ini on top of in2 

* and writes the result to the output image. 

* It writes ini on top of in2 if the value of 

* ini is greater than in2. 

* 



greater_overlay (the_image , out_image , 
rows, cols) 
short **the_image, 

** out _ image; 
long cols , rows ; 

I 

int i , j ; 

for(i=0; iCrows; i++){ 

if ( (i°/olO) == 0) printf(" 7 0 d" , i) ; 
for(j=0; j<cols ; j++){ 

if (the_image [i] [j] > out_image [i] [j] ) 
out_image [i] [j] = the_image [i] [j] ; 
} /* ends loop over j */ 

} /* ends loop over i */ 

} /* ends greater_overlay */ 



/********************************************** 

* less_overlay( . . . 

* 

* This function overlays ini on top of in2 

* and writes the result to the output image. 

* It writes ini on top of in2 if the value of 

* ini is less than in2. 
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sit**********************************************/ 

less_overlay (the_image , out_image , 
rows, cols) 
short **the_image , 

** out _ image ; 
long cols, rows; 

{ 

int i , j ; 



f or (i=0 ; i<rows; i++){ 

if ( (i°/,10) == 0) printf (" 7,d" , i) ; 
for(j=0; j<cols; j++){ 

if (the_image [i] [j] < out_image [i] [j] ) 
out_image[i] [j] = the_image[i] [j] ; 
} /* ends loop over j */ 

} /* ends loop over i */ 

} /* ends less_overlay */ 



/********************************************** 

* average_overlay ( . . . 

* 

* This function mixes ini and in2 

* and writes the result to the output image. 

* It writes the average of ini and in2 to the 

* output image. 

***********************************************/ 

average_overlay (the_image , out_image , 
rows, cols) 
short **the_image , 

** out _ image ; 
long cols, rows; 

{ 

int i , j ; 



for(i=0; i<rows; i++){ 




620 



APPENDIX F. SOURCE CODE LISTINGS 



if ( (i°/olO) == 0) print f (" °/,d" , i) ; 
for(j=0; j<cols; j++){ 
out_image[i] [j] = 

(the_image [i] [j] + out_image [i] [j] )/2; 
]- /* ends loop over j */ 

} /* ends loop over i */ 

> /* ends average_overlay */ 



Listing 12.4 - The Overlay Subroutines 



/********************************************* 

* 

* file mainover. c 

* 

* Functions: This file contains 

* main 



* 

* 

* 

* 

* 

* 



Purpose : 

This file contains the main calling 
routine that calls the overlay functions. 

External Calls: 

imageio.c - create_image_f ile 
r e ad_ image _ array 
write_image_array 
get_image_size 
allocate_image_array 
free_image_array 
overlay. c - non_zero_overlay 
zero_overlay 
greater_overlay 
less_overlay 
average_overlay 

Modifications: 

6 March 1993 - created 
22 August 1998 - modified to work on 
entire images at once. 

19 September 1998 - modified to work with 
all I 0 routines in imageio.c. 
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* 

********************************************/ 
#include "cips.h" 



short **the_image; 
short ** out _ image; 

main(argc, argv) 
int argc; 
char *argv [] ; 

{ 

char namel[80], name2[80], name3[80], type [80] ; 

int count , i , j ; 

long length, width; 



/sic******************************************** 

* 



* Interpret the command line parameters. 

* 



if (argc < 5){ 
printf ( 

"\n\nNot enough parameters:" 

"\n" 

"\n usage: mainover in-filel in-file2 out-file " 
"type" 

"\n" 

"\n recall type: nonzero zero greater less" 

" average " 

"\n the input images must be the same size" 

"\n" 

"\n") ; 
exit (0) ; 

} 

strcpy(namel, argv[l]); 
strcpy (name2 , argv [2] ) ; 
strcpy (name3 , argv [3] ) ; 
strcpy (type , argv [4] ) ; 
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if (does_not_exist (namel) ) { 
printf ("\nERROR input file °/ 0 s does not exist", 
namel) ; 

exit(O) ; 

} 

if (does_not_exist (name2) ) { 
printf ("\nERR0R input file °/ 0 s does not exist", 
name2) ; 

exit(O) ; 

} 

/********************************************* 

* Read the input image headers . 

* Ensure the input image are the same size . 

* Allocate the image arrays and read 

* the image data. 

* 

**********************************************/ 

if (are_not_same_size (namel , name2) ) { 
printf ( 

"\n Images °/»s and °/ 0 s are not the same size", 
namel , name2) ; 
exit (1) ; 

} /* ends if sizes not the same */ 

get_image_size (namel, &length, &width) ; 
the_image = allocate_image_array (length, width); 
out_image = allocate_image_array (length, width); 
create_image_f ile (namel , name3) ; 
read_image_array (namel, the_image) ; 
read_image_array(name2, out_image) ; 

* Apply the desired overlay function. 
**********************************************/ 
/* non-zero */ 

if (strncmpO'non" , type, 3) == 0){ 

non_zero_overlay (the_image , out_image , 
length , 
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width) ; 

} /* ends non_zero operation */ 

/* zero */ 

if (strcmpC'zero" , type) == 0){ 

zero_overlay (the_image , out_image , 
length , 
width) ; 

} /* ends zero operation */ 

/* greater */ 

if (strncmpO'gre" , type, 3) == 0){ 

greater_overlay (the_image , out_image , 
length , 
width) ; 

} /* ends greater operation */ 

/* less */ 

if (strncmpC'les" , type, 3) == 0){ 

less_overlay (the_image , out_image , 
length , 
width) ; 

} /* ends less operation */ 

/* average */ 

if (strncmpO'ave" , type, 3) == 0)1 

average_overlay (the_image , out_image , 
length , 
width) ; 

> /* ends average operation */ 

write_image_array(name3, out_image) ; 

free_image_array(out_image, length) ; 

f ree_image_array(the_image , length) ; 

} /* ends main */ 



Listing 12.5 - The mainover Program 



F.13 Code Listings for Chapter 13 
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/******************************************** 

* file geosubs. c 

* Functions: This file contains 

* geometry 

* arotate 

* bilinear_interpolate 

* 

* Purpose : 

* These functions performs different 

* geometric operations. 

* External Calls: 

* none 

* Modifications: 

* 20 October 1993- created 

* 27 August 1998 - modified to work on 

* entire images at once. 

* 

♦ sic******************************************/ 



#include "cips.h" 
#def ine FILL 150 



/******************************************* 

* geometry (.. 

* This routine performs geometric 

* transf ormations on the pixels in an 

* image array. It performs basic 

* displacement, stretching, and rotation. 

* The basic equations are: 

* new x = x.cos(a) + y.sin(a) + x_displace 

* + x.x_stretch +x.y.x_cross 
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* new y = y.cos(a) - x.sin(a) + y_displace 

* + y.y_stretch +x.y.y_cross 

*******************************************/ 

geometry (the_image , out_image , 
x_angle, 

x_stretch, y_stretch, 

x_displace, y_displace, 

x_cross, y_cross, 

bilinear, 

rows, 

cols) 



{ 



float x_angle, x_stretch, y_stretch, 
x_cross, y_cross; 
int bilinear; 

long cols , rows ; 
short **the_image, 

** out _ image, 
x_displace, y_displace; 

double cosa, sina, radian_angle , tmpx, tmpy; 
float fi, f j , x_div, y_div, x_num, y_num; 
int i , j , new_i , new_ j ; 



/****************************** 

* 

* Load the terms array with 

* the correct parameters. 

* 

sic******************************/ 

/* the following magic number is from 
180 degrees divided by pi */ 
radian_angle = x_angle/57 . 29577951 ; 
cosa = cos (radian_angle) ; 
sina = sin(radian_angle) ; 

/************************************ 

* 

* NOTE: You divide by the 

* stretching factors. Therefore, if 
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* they are zero, you divide by 1. 

* You do this with the x_div y_div 

* variables. You also need a 

* numerator term to create a zero 

* product. You do this with the 

* x_num and y_num variables . 

*************************************/ 



if (x_stretch < 0. 00001) { 
x_div = 1.0; 
x_num = 0.0; 

} 

else{ 

x_div = x_stretch; 
x_num = 1.0; 

} 

if (y_stretch < 0. 00001) { 
y_div = 1.0; 
y_num = 0.0; 

} 

else{ 

y_div = y_stretch; 
y_num = 1.0; 

> 



/sit************************* 

* Loop over image array 

**************************/ 

printf ("\n") ; 
for(i=0; i<rows; i++){ 

if( (i°/ 0 10) == 0) printf ("°/ 0 d ", i) ; 
for(j=0; j<cols; j++){ 



fi = i; 

fj = j; 

tmpx = (double) (j)*cosa + 

(double) (i)*sina + 

(double) (x_displace) + 

(double) (x_num*fj/x_div) + 
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(double) (x_cross*i*j) ; 

tmpy = (double) (i)*cosa 

(double) (j)*sina + 

(double) (y_displace) + 

(double) (y_num*f i/y_div) + 

(double) (y_cross*i*j) ; 

if (x_stretch != 0.0) 

tmpx = tmpx - (double) (fj*cosa + fi*sina) ; 
if (y_stretch != 0.0) 

tmpy = tmpy - (double) (fi*cosa - f j*sina) ; 

new. j = tmpx ; 
new_i = tmpy; 

if (bilinear == 0){ 

if (new_j <0 II 

new_j >= cols I I 

new_i <0 II 

new_i >= rows) 
out_image[i] [j] = FILL; 
else 

out_image[i] [j] = 
the_image [new_i] [new_j] ; 

} /* ends if bilinear */ 

else{ 

out_image [i] [j] = 

bilinear_interpolate (the_image , 
tmpx , tmpy , 
rows, cols); 

> /* ends bilinear if */ 

}■ /* ends loop over j */ 

} /* ends loop over i */ 

} /* ends geometry */ 



/******************************************* 

* 



* arotate( . . 




APPENDIX F. SOURCE CODE LISTINGS 

This routine performs rotation about 
any point m,n. 

The basic equations are: 

new x = x.cos(a) - y.sin(a) 

-m.cos(a) + m + n.sin(a) 

new y = y.cos(a) + x.sin(a) 

-m.sin(a) - n.cos(a) + n 

*******************************************/ 

arotate(the_image, out_image, 
angle , 

m, n, bilinear, 
rows, cols) 
float angle; 
int bilinear; 
long cols, rows; 
short **the_image, 

** out _ image, 
m, n; 

{ 

double cosa, sina, radian_angle , tmpx, tmpy; 
int i , j , new_i , new_ j ; 




/* the following magic number is from 
180 degrees divided by pi */ 
radian_angle = angle/57.29577951; 
cosa = cos(radian_angle) ; 
sina = sin(radian_angle) ; 

/sit************************* 

* Loop over image array 

**************************/ 

printf ("\n") ; 
for(i=0; iCrows; i++){ 

if ( (i°/.10) == 0) printf ("7, d ", i) ; 
for(j=0; j<cols; j++){ 
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new x = x.cos(a) - y.sin(a) 

-m.cos(a) + m + n.sin(a) 



new y = y.cos(a) + x.sin(a) 

-m.sin(a) - n.cos(a) + n 



tmpx = (double) (j)*cosa 
(double) (i)*sina 
(double) (m)*cosa 
(double) (m) 
(double) (n)*sina; 

tmpy = (double) (i)*cosa 
(double) ( j ) *sina 
(double) (m)*sina 
(double) (n)*cosa 
(double) (n) ; 



new_j = tmpx; 
new_i = tmpy; 

if (bilinear == 0){ 

if (new_j <0 II 

new_j >= cols I I 

new_i <0 II 

new_i >= rows) 
out_image[i] [j] = FILL; 
else 

out_image[i] [j] = 
the_image [new_i] [new_j] ; 

} /* ends if bilinear */ 

else{ 

out_image [i] [j] = 

bilinear_interpolate (the_image , 
tmpx , tmpy , 
rows, cols) 

> /* ends bilinear if */ 

/* ends loop over j */ 
ends loop over i */ 
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> /* ends arotate */ 



/******************************************* 

* bilinear_interpolate( . . 

* This routine performs bi-linear 

* interpolation. 

* If x or y is out of range, i.e. less 

* than zero or greater than rows or cols , 

* this routine returns a zero. 

* If x and y are both in range, this 

* routine interpolates in the horizontal 

* and vertical directions and returns 

* the proper gray level. 

*******************************************/ 



bilinear_interpolate(the_image, x, y, rows, cols) 
double x, y; 
long cols, rows; 
short **the_image ; 

double fraction_x, fraction_y, 

one_minus_x, one_minus_y , 
tmp_double ; 

int ceil_x, ceil_y, floor_x, floor_y; 
short pi, p2, p3, result = FILL; 

/****************************** 



If x or y is out of range, 
return a FILL . 



*******************************/ 

if (x < 0.0 II 

x >= (double) (cols-1) I I 
y < 0.0 II 
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y >= (double) (rows-1)) 
return(result) ; 



tmp_double = 
floor_x = 
tmp_double = 
floor_y = 
tmp_double = 
ceil_x 

tmp_double = 
ceil_y 

fraction_x = 
fraction_y = 



f loor (x) ; 
tmp_double ; 
f loor (y) ; 
tmp_double ; 
ceil(x) ; 
tmp_double ; 
ceil(y) ; 
tmp_double ; 

x - floor(x) 
y - floor(y) 



one_minus_x = 1.0 - fraction_x; 
one_minus_y = 1.0 - fraction_y; 



tmp_double = one_minus_x * 

(double) (the_image [f loor_y] [f loor_x] ) + 
fraction_x * 

(double) (the_image [f loor_y] [ceil_x] ) ; 
pi = tmp_double; 



tmp_double = one_minus_x * 

(double) (the_image [ceil_y] [f loor_x] ) + 
fraction_x * 

(double) (the_image [ceil_y] [ceil_x] ) ; 
p2 = tmp_double ; 

tmp_double = one_minus_y * (double) (pi) + 
fraction_y * (double) (p2) ; 
p3 = tmp_double ; 



return (p3) ; 

} /* ends bilinear_interpolate */ 



#ifdef NEVER 



/sic****************************************** 
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get_geometry_options( . . 

This routine interacts with the user 
to obtain the parameters to call the 
geometry operations subroutines. 



get_geometry_options (operation, angle , 

x_displace, y_displace, 
x_stretch, y_stretch, 
x_cross, y_cross, 
bilinear, m, n) 

char operation [] ; 
int *bilinear; 

short *m, *n, *x_displace, *y_displace; 
float *angle, 

*x_cross, *y_cross, 

*x_stretch, *y_stretch; 

■c 

int not_f inished, response; 
not_finished = 1; 
while (not_f inished) { 

printf ("\nThe geomety options are:"); 
printf ("\n\tl . Operation is °/,s", operation); 
printf ("\n\t2. Angle is 7 0 f", *angle) ; 
printf ("\n\t3. x-displace=7 0 d y-displace=7od" , 
*x_displace, *y_displace) ; 
printf ("\n\t4. x-stretch=7«f y-stretch=7.f " , 
*x_stretch, *y_stretch) ; 
printf ("\n\t5. x-cross=7.f y-cross=7»f " , 

*x_cross, *y_cross) ; 

printf ("\n\t6. bilinear = 7od" , *bilinear) ; 
printf ("\n\t7. rotation points m=7«d n=7«d" , 

*m, *n) ; 

printf ("\n\nExamples : ") ; 

printf ("\ngeometry needs: angle"); 

printf (" x-displace y-displace") ; 

printf (" x-stretch y-stretch"); 

printf ("\n x-cross y-cross"); 

printf (" bilinear (1 or 0)"); 

printf ("\nrotate needs: angle m n"); 

printf (" bilinear (1 or 0)"); 

printf ("\n\nEnter choice (0 = no change) _\b"); 
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get_integer(&response) ; 

if (response == 0) 
not_finished = 0; 

if (response == 1){ 

printf ("\nEnter operation:"); 
gets (operation) ; 

> /* ends if 1 */ 

if (response == 2){ 

printf ("\nEnter angle: \b\b\b"); 

get_float (angle) ; 

} /* ends if 2 */ 

if (response == 3){ 

printf ("\nEnter x-displace: \b\b\b"); 

get_integer(x_displace) ; 

printf ("\nEnter y-displace: \b\b\b"); 

get_integer(y_displace) ; 

> /* ends if 3 */ 

if (response == 4){ 

printf ("\nEnter x-stretch: \b\b\b"); 

get_f loat (x_stretch) ; 

printf ("\nEnter y-stretch: \b\b\b"); 

get_f loat (y_stretch) ; 

> /* ends if 4 */ 

if (response == 5){ 

printf ("\nEnter x-cross: \b\b\b"); 

get_float(x_cross) ; 

printf ("\nEnter y-cross: \b\b\b"); 

get_f loat (y_cross) ; 

} /* ends if 5 */ 

if (response == 6){ 

printf ("\nEnter bilinear: _\b"); 
get_integer (bilinear) ; 

> /* ends if 6 */ 

if (response == 7){ 

printf ("\nEnter rotation point m: _\b"); 
get_integer(m) ; 

printf ("\nEnter rotation point n: _\b"); 
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get_integer(n) ; 

> /* ends if 7 */ 

} /* ends while not_f inished */ 

} /* ends get_geometry_options */ 

#endif 

Listing 13.1 - The Geometry Subroutines 



/******************************************** 

* 

* file d:\cips\geometry.c 

* Functions: This file contains 

* main 

* Purpose : 

* This file contains the main calling 

* routine for geometric subroutines. 

* 

* External Calls : 

* imageio.c - create_image_f ile 

* read_image_array 

* write_image_array 

* get_image_size 

* allocate_image_array 

* free_image_array 

* geosubs . c - geometry 

* arotate 

* 

* Modifications: 

* 26 October 1993 - created 

* 27 August 1998 - modified to work on 

* entire images at once. 

* 19 September 1998 - modified to work with 

* all I 0 routines in imageio.c. 



****** sic*************************************/ 
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#include "cips.h" 



short **the_image; 
short * * out _ image ; 

main(argc, argv) 
int argc; 
char *argv[] ; 



char name 1 [80], name2 [80] , type [80] ; 

float theta, x_stretch, y_stretch, 
x_cross, y_cross; 
int bilinear; 

int x_control, y_control; 

long length, width; 

short m, n, x_displace, y_displace; 

/************************************* 

* 

* This program will use a different 

* command line for each type of 

* call . 

* 

* Print a usage statement that 

* gives an example of each type 

* of call. 

* 

*************************************/ 
if (argc < 7){ 

printf ("\n\nNot enough parameters:"); 
printf ("\n") ; 

printf ("\n Two Operations: "); 
printf ("\n geometry rotate"); 

printf ("\n\n Examples : ") ; 
printf ("\n") ; 

printf ("\n geometry in out geometry angle"); 
printf (" x-displace y-displace") ; 
printf ("\n x-stretch y-stretch"); 

printf (" x-cross y-cross bilinear (1 or 0)"); 
printf ("\n") ; 

printf ("\n geometry in out rotate angle m n"); 
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printf(" bilinear (1 or 0)"); 
printf ("\n") ; 
exit(0) ; 

} 



/sit************************************ 

* Interpret the command line 

* depending on the type of call. 

*************************************/ 

if (strncmp(argv[3] , "geometry", 3) == 0){ 
strcpy (namel , argv[l]); 
strcpy (name2 , argv [2] ) ; 
strcpy (type , argv [3] ) ; 
theta = at of (argv [4] ) ; 

x_displace = atoi(argv[5] ) ; 
y_displace = atoi(argv[6] ) ; 
x_stretch = atof (argv [7] ) ; 
y_stretch = atof (argv [8] ) ; 
x_cross = atof (argv [9] ) ; 
y_cross = atof (argv [10] ) ; 
bilinear = atoi (argv [11] ) ; 

} 

if (strncmp(argv[3] , "rotate", 3) == 0){ 
strcpy(namel , argv[l]); 
strcpy (name2 , argv [2] ) ; 
strcpy (type , argv [3] ) ; 
theta = atof (argv [4] ) ; 

m = atoi (argv [5] ) ; 

n = atoi (argv [6] ) ; 

bilinear = atoi (argv [7] ) ; 

> 

if (does_not_exist (namel) ) { 
printf ("\nERR0R input file °/ 0 s does not exist", 
namel) ; 

exit(0) ; 

} 

get_image_size (namel, &length, &width) ; 
the_image = allocate_image_array (length, width); 
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out_image = allocate_image_array (length, width); 
create_image_file(namel, name2) ; 
read_image_array (namel , the_image) ; 

/************************************* 

* 

* Call the routines 

* 

*************************************/ 

if (strncmp(type, "geometry", 3) == 0){ 
geometry (the_image, out_image, 

theta, x_stretch, y_stretch, 

x_displace, y_displace, 

x_cross, y_cross, 

bilinear, 

length, 

width) ; 

} /* ends if */ 



if (strncmp(type, "rotate", 3) == 0){ 
arotate(the_image, out_image, 
theta, m, n, bilinear, 
length , 
width) ; 

} /* ends if */ 



write_image_array(name2, out_image) 
f ree_image_array (out_image , length) 
f ree_image_array (the_image , length) 

} /* ends main */ 



Listing 13.2 - The geometry Program 



/******************************************** 
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file stretch. c 

Functions: This file contains 
main 
stretch 

bilinear_interpolate 
Purpose : 

This file contains the main calling 
routine and the needed subroutines 
for a program which stretches 
an image by any factor. It can either 
roundoff the numbers or use 
bi-linear interpolation. 

External Calls : 

imageio.c - create_resized_image_f ile 
read_image_array 
write_image_array 
get_image_size 
allocate_image_array 
free_image_array 

Modifications : 

4 December 1993 - created 
16 September 1998 - modified to work on entire 
images at one time. 

22 September 1998 - modified to work with 
all I 0 routines in imageio.c. 

*********************************************/ 

#include "cips.h" 

#def ine FILL 150 



short **the_image ; 
short **out_image ; 

main ( ar gc , ar gv ) 
int argc; 
char *argv[] ; 




char 



in_name [80] , out_name [80] ; 
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float x_stretch, y_stretch; 

int bilinear; 

long tmp_length, tmp_width; 

long length, width; 

struct bmpf ileheader bmp_f ile_header ; 

struct bitmapheader bmheader; 

struct bitmapheader bmheader2; 

struct tiff _header_struct tiff _f ile_header ; 
struct tiff _header_struct tiff _f ile_header2; 

/sit***************************************** 

* 

* Interpret the command line parameters. 

* 

*******************************************/ 

if (argc <611 argc > 6){ 
printf ( 

"\n" 

"\n usage: stretch in-file out-file x-stretch " 
"y-stretch bilinear (1 or 0)" 

"\n") ; 
exit (0) ; 

} 

strcpy(in_name, argv[l] ) ; 
strcpy(out_name, argv[2] ) ; 
x_stretch = atof (argv[3] ) ; 
y_stretch = atof (argv[4] ) ; 
bilinear = atoi(argv[5] ) ; 

if (does_not_exist (in_name) ) { 
printf ("\nERR0R input file °/ 0 s does not exist", 
in_name) ; 

exit (0) ; 

} 

/sit******************************************* 



Create an output file different in size 
from the input file. 
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********************************************/ 

get_image_size(in_name, &length, &width) ; 
tmp_length = ( (float) (length) *y_stretch) ; 
tmp_width = ( (float) (width) *x_stretch) ; 
create_resized_image_f ile (in_name , out_name , 

tmp_length, tmp_width) ; 

the_image = allocate_image_array (length, width); 
out_image = allocate_image_array (tmp_length, tmp_width) ; 

read_image_array(in_name, the_image) ; 

stretch(the_image, out_image, 
x_stretch, y_stretch, 
bilinear, 
tmp_length , 
tmp_width, 
length, 
width) ; 

write_image_array(out_name, out_image) ; 
free_image_array(out_image, tmp_length) ; 
f ree_image_array (the_image , length) ; 

} /* ends main */ 



/******************************************* 

* stretch( . . 

* This routine performs the image 

* stretching. If bilinear == 0, it uses 

* the roundoff approach for enlarging 

* an area. If bilinear == 1 , it calls the 

* bilinear_interpolate routine to get 

* the value of a pixel that lies 

* between pixels. 

********************************************/ 



stretch (the_image , out_image, 
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x_stretch, y_stretch, 
bilinear, 

out_rows, out_cols, 
in_rows, in_cols) 



{ 



float x_stretch, y_stretch; 
int bilinear; 
short **the_image, 

** out _ image; 

long out_cols, out_rows; 
long in_cols, in_rows; 

double tmpx, tmpy; 

float fi, f j ; 

int i , j , new_i , new_ j ; 



/************************** 

* 

* Loop over image array 

* 

**************************/ 



printf ("\n") ; 

for(i=0; i<out_rows; i++){ 

if ( (i°/»10) == 0) printf ("°/ 0 d ", i) ; 
for(j=0; j<out_cols; j++){ 

fi = i; 

fj = j; 

tmpx = f j/x_stretch; 
tmpy = f i/y_stretch; 

new_i = tmpy; 
new. j = tmpx ; 

if (bilinear == 0){ 

if (new_ j <0 II 

new_j >= in_cols I I 
new_i <0 II 

new_i >= in_rows) 
out_image[i] [j] = FILL; 
else 

out_image[i] [j] = 
the_image [new_i] [new_j] ; 
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} /* ends if bilinear */ 

else{ 

out_image [i] [j] = 

bilinear_interpolate (the_image , 
tmpx , tmpy , 
in_rows, in_cols) ; 

} /* ends bilinear if */ 

> /* ends loop over j */ 

> /* ends loop over i */ 

> /* ends stretch */ 



Listing 13.3 - The stretch Program 



F.14 Code Listings for Chapter 14 



/*********************************> 

* 

* file warpsubs.c 

* 

* Functions: This file contains 

* warp 

* warp_loop 

* bi_warp_loop 

* object_warp 

* full_warp_loop 

* bi_full_warp_loop 

* get_warp_options 



* 

* Purpose : 

* These functions performs different 

* geometric operations. 

* 



External Calls : 

geosubs. c - bilinear_interpolate 



Modifications : 

20 October 1993- created 
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* 27 August 1998 - modified to work on 

* entire images at once. 



#include "cips.h" 

#def ine FILL 150 

/******************************************* 

* 

* warp ( . . 

* This routine warps a rowsxcols section 

* of cm image . The il , ie parameters 

* specify which rowsxcols section of 

* the image to warp. The x_control and 

* y_control parameters are the control 

* points inside that section. Therefore, 

* x_control and y_control will always be 

* less the cols and rows. 

* 

* The point coordinates are for the four 

* corners of a four side figure. 

* xl ,yl x2,y2 

* x4,y4 x3 , y3 

* 

*******************************************/ 

warp(the_image, out_image, 
x_control, y_control, 
bilinear, 
rows, cols) 

int bilinear, x_control, y_control; 

long cols , rows ; 
short **the_image, 

** out _ image; 

{ 

int cols_div_2, extra_x, extra_y, i, j, 

rows_div_2 , xl, x2, x3, x4, yl, y2, y3, y4; 

cols_div_2 = cols/2; 
rows_div_2 = rows/2; 
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/*********************************** 

* 1 - upper left quarter 
***********************************/ 

xl = 0; 

x2 = cols_div_2; 
x3 = x_control; 
x4 = 0; 

yl = 0; 
y2 = 0; 

y3 = y_control; 
y4 = rows_div_2; 

extra_x = 0; 
extra_y = 0; 

if (bilinear) 

bi_warp_loop(the_image , out_image , 
xl, x2, x3, x4, 
yl, y2, y3, y4, 
extra_x, extra_y, 
rows , cols) ; 

else 

warp_loop(the_image, out_image, 
xl, x2, x3, x4, 
yl, y2, y3, y4, 
extra_x, extra_y, 
rows, cols); 

/sit********************************** 

* 2 - upper right quarter 

***********************************/ 

xl = cols_div_2; 
x2 = cols-1; 
x3 = cols-1; 
x4 = x_control; 
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y2 = 0; 

y3 = rows_div_2; 
y4 = y_control; 

extra_x = cols_div_2; 
extra_y = 0; 



if (bilinear) 

bi_warp_loop (the_image , out_image , 
xl, x2 , x3, x4, 
yl, y2, y3, y4, 
extra_x, extra_y, 
rows , cols) ; 

else 

warp_loop(the_image , out_image, 
xl, x2, x3, x4, 
yl, y2, y3, y4, 
extra_x, extra_y, 
rows, cols); 

/*********************************** 

* 

* 3 - lower right quarter 

sic**********************************/ 

xl = x_control; 
x2 = cols-1; 
x3 = cols-1; 
x4 = cols_div_2; 

yl = y_control; 
y2 = rows_div_2; 
y3 = rows-1; 
y4 = rows-1; 

extra_x = cols_div_2; 
extra_y = rows_div_2; 

if (bilinear) 

bi_warp_loop (the_image , out_image , 
xl, x2 , x3, x4, 
yl, y2 , y3, y4, 
extra_x, extra_y, 
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rows, cols); 

else 

warp_loop(the_image, out_image, 
xl, x2, x3, x4, 
yl, y2, y3, y4, 
extra_x, extra_y, 
rows , cols) ; 

/sit********************************** 

* 4 - lower left quarter 

***********************************/ 
xl = 0; 

x2 = x_control; 
x3 = cols_div_2; 
x4 = 0; 

yl = rows_div_2; 
y2 = y_control; 
y3 = rows-1; 
y4 = rows-1; 

extra_x = 0 ; 
extra_y = rows_div_2; 

if (bilinear) 

bi_warp_loop(the_image , out_image , 
xl, x2, x3, x4, 
yl, y2, y3, y4, 
extra_x, extra_y, 
rows, cols); 

else 

warp_loop(the_image, out_image, 
xl, x2, x3, x4, 
yl, y2, y3, y4, 
extra_x, extra_y, 
rows , cols) ; 



> /* ends warp */ 
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* warp_loop(.. 

* This routine sets up the coefficients 

* and loops through a quarter of the 

* rowsxcols section of the image that 

* is being warped. 

* 

*******************************************/ 

warp_loop(the_image, out_image, 
xl, x2 , x3, x4, 
yl, y2 , y3, y4, 
extra_x, extra_y, 
rows, cols) 

int extra_x, extra_y, 

xl, x2 , x3, x4, 
yl, y2, y3, y4; 
long cols , rows ; 
short **the_image, 

** out _ image; 

{ 

int cols_div_2, denom, i, j, rows_div_2, 

xa, xb, xab, x_out, ya, yb, yab, y_out; 

cols_div_2 = cols/2; 
rows_div_2 = rows/2; 

denom = cols_div_2 * rows_div_2; 

/*********************************** 

* 

* Set up the terms for the 

* spatial transformation. 

***********************************/ 

xa = x2 - xl ; 
xb = x4 - xl; 
xab = xl - x2 + x3 - x4; 



ya = y2 - yl; 
yb = y4 - yl; 
yab = yl - y2 + y3 - y4; 
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/sit********************************** 

* Loop through a quadrant and 

* perform the spatial 

* transformation. 

***********************************/ 
/* NOTE a=j b=i */ 



printf ("\n") ; 

for(i=0; i<rows_div_2 ; i++){ 

if( (i°/ 0 10) == 0) printf ("°/ 0 d ", i) ; 
for(j=0; j<cols_div_2; j++){ 

x_out = xl + (xa*j)/cols_div_2 + 

(xb*i)/rows_div_2 + (xab*i*j)/(denom) ; 
y_out = yl + (ya*j)/cols_div_2 + 

(yb*i)/rows_div_2 + (yab*i*j)/(denom) ; 

if (x_out <0 II 

x_out >= cols I I 

y_out <0 II 

y_out >= rows) 

out_image [i+extra_y] [j+extra_x] = FILL; 
else 

out_image [i+extra_y] [j+extra_x] = 
the_image [y_out] [x_out] ; 

> /* ends loop over j */ 

> /* ends loop over i */ 

I /* ends warp_loop */ 



/******************************************* 

* bi_warp_loop( . . 

* This routine sets up the coefficients 

* and loops through a quarter of the 
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rowsxcols section of the image that 
is being warped. 

This version of the routine uses bilinear 
interpolation to find the gray shades. 

It is more accurate than warp_loop, 
but takes longer because of the floating 
point calculations. 



bi_warp_loop (the_image , out_image , 
xl , x2, x3, x4, 
yl, y2, y3, y4, 
extra_x, extra_y, 
rows, cols) 

int extra_x, extra_y, 
xl, x2 , x3, x4, 
yl, y2, y3, y4; 
long cols , rows ; 
short **the_image, 

** out _ image; 

{ 

double cols_div_2, denom, di, dj , rows_div_2, 
xa, xb, xab, x_out, ya, yb, yab, y_out; 



cols_div_2 = (double) (cols) /2.0; 
rows_div_2 = (double) (rows) /2.0; 
denom = cols_div_2 * rows_div_2; 



Set up the terms for the 
spatial transformation. 



♦ sic*********************************/ 



ya = y2 - yl; 
yb = y4 - yl; 
yab = yl - y2 + y3 - y4; 
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/*it=********************************* 

* Loop through a quadrant and 

* perform the spatial 

* transformation. 

***********************************/ 
/* NOTE a=j b=i */ 



printf ("\n") ; 

for(i=0; i<rows_div_2 ; i++){ 

if( (i°/ 0 10) == 0) printf ("°/ 0 d ", i) ; 
for(j=0; j<cols_div_2; j++){ 

di = (double) (i) ; 
dj = (double) (j); 

x_out = xl + 

(xa*dj)/cols_div_2 + 
(xb*di)/rows_div_2 + 
(xab*di*dj ) / (denom) ; 

y_out = yl + 

(ya*dj)/cols_div_2 + 

(yb*di) /rows_div_2 + 
(yab*di*dj ) / (denom) ; 

out_image [i+extra_y] [j+extra_x] = 
bilinear_interpolate (the_image , 

x_out , y_out , 
rows, cols); 



)- /* ends loop over j */ 

} /* ends loop over i */ 

I /* ends bi_warp_loop */ 



/******************************************* 



object_warp( . . 
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* 

* This routine warps a rowsxcols section 

* of an image . The il , ie parameters 

* specify which rowsxcols section of 

* the image to warp. The x_control and 

* y_control parameters are the control 

* points inside that section. Therefore, 

* x_control and y_control will always be 

* less the cols and rows. 

* 

* The point coordinates are for the four 

* corners of a four side figure. 

* xl ,yl x2,y2 

* x4,y4 x3 , y3 

*******************************************/ 

ob j ect_warp (the_image , out_image , 
xl, yl, x2, y2, 
x3, y3, x4, y4, 
bilinear, rows, cols) 
int bilinear, 

xl, yl, x2 , y2, 
x3, y3 , x4, y4; 
long cols , rows ; 

short **the_image, 

** out _ image; 

{ 

int extra_x = 0, 
extra_y = 0; 

/*********************************** 

* Call the warp loop function you 

* need (with or without bilinear 

* interpolation) . 

sic**********************************/ 

if (bilinear) 

bi_f ull_warp_loop (the_image , out_image , 
xl, x2 , x3, x4, 
yl, y2 , y3, y4, 
extra_x, extra_y, 
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rows, cols); 

else 

f ull_warp_loop (the_image , out_image , 
xl, x2, x3, x4, 
yl, y2, y3, y4, 
extra_x, extra_y, 
rows, cols) ; 

> /* ends object_warp */ 



/^HcHc*^************************************ 

* full_warp_loop( . . 

* This routine sets up the coefficients 

* and loops through an entire 

* rowsxcols image that is being warped. 

*******************************************/ 

f ull_warp_loop (the_image , out_image , 
xl, x2, x3, x4, 
yl, y2, y3, y4, 
extra_x, extra_y, 
rows, cols) 

int extra_x, extra_y, 

xl, x2, x3, x4, 
yl, y2, y3, y4; 
long cols, rows; 
short **the_image, 

** out _ image ; 

{ 

int cols_div_2, denom, i, j, rows_div_2, 

xa, xb, xab, x_out, ya, yb, yab, y_out ; 

denom = cols * rows ; 

/sit********************************** 



Set up the terms for the 
spatial transformation. 
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***********************************/ 

xa = x2 - xl; 

xb = x4 - xl ; 

xab = xl - x2 + x3 - x4; 

ya = y2 - yl ; 

yb = y4 - yl; 

yab = yl - y2 + y3 - y4; 

/*********************************** 

* 

* Loop through the image and 

* perform the spatial 

* transformation. 

***********************************/ 

/* NOTE a=j b=i */ 

printf ("\n") ; 
f or (i=0 ; i<rows; i++){ 

if C (i%10) == 0) printf ("°/ 0 d ", i) ; 
for(j=0; j<cols; j++){ 

x_out = xl + (xa*j)/cols + 

(xb*i)/rows + (xab*i*j)/(denom) ; 
y_out = yl + (ya*j)/cols + 

(yb*i)/rows + (yab*i*j)/(denom) ; 

if (x_out <0 II 

x_out >= cols I I 

y_out <0 II 

y_out >= rows) 

out_image [i+extra_y] [j+extra_x] = FILL; 
else 

out_image [i+extra_y] [j+extra_x] = 
the_image [y_out] [x_out] ; 

> /* ends loop over j */ 

} /* ends loop over i */ 

> /* ends full_warp_loop */ 
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/*it=***************************************** 



* bi_full_warp_loop( . . 

* This routine sets up the coefficients 

* and loops through an entire 

* rowsxcols image that is being warped. 

* This version of the routine uses bilinear 

* interpolation to find the gray shades. 

* It is more accurate than warp_loop, 

* but takes longer because of the floating 

* point calculations. 

*******************************************/ 



bi_f ull_warp_loop (the_image , out_image , 
xl, x2 , x3, x4, 
yi, y2, y3, y4, 
extra_x, extra_y, 
rows, cols) 

int extra_x, extra_y, 

xl, x2, x3, x4, 
yl, y2, y3, y4; 
long cols, rows; 
short **the_image, 

** out _ image; 

■c 

double denom, di, dj , 

xa, xb, xab, x_out, ya, yb, yab, y_out ; 
int i , j ; 

denom = cols * rows ; 

/*********************************** 



* Set up the terms for the 

* spatial transformation. 

***********************************/ 



xa = x2 - xl; 
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xb = x4 - xl; 

xab = xl - x2 + x3 - x4; 

ya = y2 - yl ; 
yb = y4 - yl ; 
yab = yl - y2 + y3 - y4; 

/*********************************** 

* 

* Loop through the image and 

* perform the spatial 

* transformation. 

***********************************/ 

/* NOTE a=j b=i */ 

printf ("\n") ; 
f or (i=0 ; i<rows; i++){ 

if C (i%10) == 0) printf ("%d ", i) ; 
for(j=0; j<cols; j++){ 

di = (double) (i) ; 
dj = (double) ( j ) ; 

x_out = xl + 

(xa*dj)/cols + 

(xb*di)/rows + 

(xab*di*dj)/ (denom) ; 
y_out = yl + 

(ya*dj)/cols + 

(yb*di)/rows + 

(yab*di*dj)/ (denom) ; 

out_image [i+extra_y] [j+extra_x] = 
bilinear_interpolate (the_image , 

x_out , y_out , 
rows , cols) ; 



> /* ends loop over j */ 

} /* ends loop over i */ 

> /* ends bi_full_warp_loop */ 
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Listing 14.1 - The Warping Subroutines 



echo off 
rem Usage : 

rem morph.it ini in2 working-dir output 
rem 

rem Example : 

rem morphit c:a.tif c:b.tif d: c:out.tif 

rem 

rem This will morph c:a.tif and c:b.tif 
rem and put the output in c:out.tif 
rem It will also create temporary files in 
rem d: and then delete them. 

rem Check for the right number of parameters 
if "7.4" == "" goto usage 

warp 7.1 7.3inlwl.tif object 10 10 90 10 90 90 10 90 1 1 0 

warp 7.3inlwl.tif 7.3inlw2.tif object 10 10 90 10 90 90 10 90 1 1 0 

warp 7.2 7.3in2wl.tif object -10 -10 110 -10 110 110 -10 110 110 

warp 7.3in2wl.tif 7.3in2w2.tif object -10 -10 110 -10 110 110 -10 110 110 

rem Average input 1 with the second warp of input 2 
rem Weight input 1 twice as much 
rem Put the result in file l.tif 

mainover 7.1 7.3in2w2.tif 7.3tmpl.tif average 1 1 
mainover 7.1 7.3tmpl.tif 7.3tmp2.tif average 1 1 
copy 7.3tmp2.tif 7,31. tif 



rem Average input 2 with the second warp of input 1 
rem Weight input 2 twice as much 
rem Put the result in file 3.tif 

mainover 7.2 7.3inlw2.tif 7.3tmpl.tif average 1 1 
mainover 7.2 7.3tmpl.tif 7.3tmp2.tif average 1 1 
copy 7.3tmp2.tif 7.33.tif 




F.14. CODE LISTINGS FOR CHAPTER 14 



657 



rem Average the first warps of the two inputs 
rem Put the result in file 2.tif 



mainover 7o3in2wl.tif 7.3inlwl.tif 7.3tmpl.tif average 1 1 
copy 7o3tmpl.tif 7.32.tif 

del 7.3tmpl.tif 
del 7o3tmp2.tif 



rem Now put the images side by side 
rem in the sequence : ini 12 3 in2 



side 7.1 7.31 .tif 
side 7.3tmpl .tif 
del 7.3tmpl.tif 
side 7.3tmp2.tif 
side 7.3tmpl.tif 
del 7.3tmpl.tif 
del 7.3tmp2.tif 
del 7.31 .tif 
del 7.32.tif 
del 7.33.tif 
del 7.3inlwl.tif 
del 7.3inlw2.tif 
del 7.3in2wl .tif 
del 7.3in2w2.tif 



7»3tmpl .tif side 

7.32. tif 7.3tmp2.tif side 

7.33. tif 7.3tmpl.tif side 
7.2 7.4 side 



goto end 



: usage 
echo . 

echo usage : morphit ini in2 working-dir output 
echo . 

: end 



Listing 14.2 - The .bat File that Produced the Morphing Sequence (Figure 
14.10) 
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/******************************************** 

* file warp.c 

* Functions: This file contains 

* main 



* Purpose : 

* This file contains the main calling 

* routine for warping subroutines. 

* 

* External Calls : 

* imageio.c - create_image_f ile 

* read_image_array 

* write_image_array 

* get_image_size 

* allocate_image_array 

* free_image_array 

* warpsubs.c - warp 

* object_warp 

* 

* Modifications: 

* 26 October 1993 - created 

* 27 August 1998 - modified to work on 

* entire images at once. 

* 19 September 1998 - modified to work with 

* all I 0 routines in imageio.c. 

********************************************/ 



#include "cips.h" 



short **the_image ; 
short **out_image ; 

main ( ar gc , ar gv ) 
int argc ; 
char *argv[] ; 



char name 1 [80], name2 [80] , type [80] ; 

float theta, x_stretch, y_stretch, 
x_cross, y_cross; 
int bilinear, 
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xl, x2 , x3, x4, 
yl, y2 , y3, y4; 
int x_control, y_control; 
long length, width; 
short m, n, x_displace, y_displace; 

/************************************* 

* 

* This program will use a different 

* command line for each type of 

* call . 

* 

* Print a usage statement that 

* gives an example of each type 

* of call. 

sic************************************/ 

if (argc < 7){ 

printf ("\n\nNot enough parameters:"); 
printf ("\n") ; 

printf ("\n Two Operations: "); 

printf ("\n warp object-warp"); 

printf ("\n\n Examples : ") ; 

printf ("\n") ; 

printf ("\n warp in out warp x-control "); 

printf ("y-control bilinear (1 or 0)"); 
printf ("\n") ; 

printf ("\n warp in out object-warp xl yl"); 

printf (" x2 y2 x3 y3 x4 y4 "); 

printf ("bilinear (1 or 0)"); 

printf ("\n") ; 

exit (0) ; 

} 



/************************************* 

* 

* Interpret the command line 

* depending on the type of call . 

* 

*************************************/ 

if (strncmp(argv[3] , "warp", 3) == 0){ 
strcpy(namel, argv[l]); 
strcpy (name2 , argv [2] ) ; 
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strcpy (type , argv [3] ) ; 
x_control = atoi (argv [4] ) ; 
y_control = atoi (argv [5] ) ; 
bilinear = atoi (argv [6] ) ; 

} 

if (strncmp(argv[3] , "object-warp", 3) == 0){ 
strcpy (name 1 , argv[l]); 
strcpy (name2 , argv [2] ) ; 



strcpy (type , argv [3] ) ; 


xl 


= atoi (argv [4] ) ; 


yi 


= atoi (argv [5] ) ; 


x2 


= atoi (argv [6] ) ; 


y2 


= atoi (argv [7] ) ; 


x3 


= atoi (argv [8] ) ; 


y3 


= atoi (argv [9] ) ; 


x4 


= atoi (argv [10] ) 


y4 


= atoi (argv [11] ) 


bilinear 


= atoi (argv [12] ) 



> 

if (does_not_exist (namel) ) { 
printf ("\nERR0R input file 7 0 s does not exist", 
namel) ; 

exit(0) ; 

> 

get_image_size (namel , &length, &width) ; 
the_image = allocate_image_array (length, width); 
out_image = allocate_image_array (length, width); 
create_image_f ile (namel , name2) ; 
read_image_array (namel, the_image) ; 



* Call the routines 
*************************************/ 

if (strncmp(type, "warp", 3) == 0){ 
warp(the_image, out_image, 
x_control, y_control, 
bilinear, 
length, 
width) ; 
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} /* ends if */ 



if (strncmp(argv[3] , "object-warp", 3) == 0)1 
ob j ect_warp (the_image , out_image , 
xl, yl, x2, y2, 
x3, y3, x4, y4, 
bilinear, 
length, 
width) ; 

} /* ends if */ 

write_image_array(name2, out_image) ; 
f ree_image_array(out_image , length) ; 
f ree_image_array(the_image , length) ; 

} /* ends main */ 



Listing 14.3 - The warp Program 



F.15 Code Listings for Chapter 15 



/******************************************** 

* 

* file txtrsubs . c 

* Functions: This file contains 

* sigma 

* skewness 

* amean 

* adifference 

* difference_array 

* hurst 

* compare 

* get_texture_options 

* Purpose : 

* These functions calculate measures 

* that help distinguish textures. 




